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SECTION 1 
General I nf cn-mat i on 

1.1 Four Channel Communications Control 1 er considerations 



Users who are running 3270 ICS and some other comm package 
on the same Four Channel Communications Controller (FCCC) will 
want to use channel of the the FCCC for 3270. This provides 
somewhat better system performance than the other combinations. 

FCCC's used for 3270 must be revision level "P"' or later. 
Earlier revision levels will cause the Communications Download 
utility to report 'OS error >26". Error 26 can also occur it 
repeated downloads are attempted, as mar error 29 (out of 
memory ) . 

When using the same FCCC for 3270 ICS and HDLC, there are no 
special considerations involved in the way that the HDLC and ICS 
download control files are to be constructed. 



Undocumented error messages 



The following two error messages are not documented in the 
ICS user's guide: 

1. INVALID LOCAL FORMAT - this message is produced by the 
ICS printer emulator (XICP) when invalid data is found 
in the local format file. When this message is found 
in the system log, the proper corrective action is the 
perform List Logical Record (LLR) of the local format 
file and then delete the file. The pathname of the 
local format file the affected printer will be 
'" . S*ICS. xxxxTMvy " where xxxx=the communications line 
name (like CM01 ) and yy is the terminal address (0-31) 
of the printer. The LLR listing should be sent to the 
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TI customer support line For analysis. 

NO TASK MEMORY FOUND AT XXXX - this message is produced 
by the XPA proc when XF*A is attempted after a new 
operating system has been generated but GENXPA has not 
been rerun. The proper corrective action is to rerun 
GENXPA. 



1.3 Pas ca 1 Lin k Co n t r o 1 file f o r F'SC 

In order to link a Pascal program with the PSC subroutines, 
one of the two following methods may be used! 

With automatic symbol resolution: 

FORMAT IMAGE, REPLACE, 3 ? PRIORITY MUST MATCH ICSPSC 
LIBRARY .TIP. OBJ ;TIP OBJECT MUST BE F I RSI- 
LIBRARY DX03270.0BJ 5DX03270 MUST BE LAST 
TASK I PSC ; USER'S TASK NAME 
INCLUDE (MAIN ) ;TIP MODULE 
I NCLUDE T I M I X . I PSC . I PSCOB J ; USER ' S OBJECT MODULE- 
END 

Without automatic symbol resolution: 

FORMAT I MAGE , REPLACE , 3 
LIBRARY .TIP, OBJ 
TASK I PSC 
INCL (MAIN ) 



I NC'L T I M I X . I PSC . I PSCOB J 
I NCL D X 03270 . OBJ . I FSOPN 
INCL DX03270.0BJ. IC*OPN 
END 



USER'S OBJECT MODULE 
FORTRAN/Pa seal I NTERFACE 
PRE-L INKED PSC SUBROUTINES 



1 . 4 COBOL L i n k C o n t r- o 1 file f o r PSC 

In order to link a COBOL program with the PSC subroutines, 
one of the two following methods may be used: 

With a u t o ma t i c s vm t> o 1 res o I u t i o n : 

FORMAT IMAGE, REPLACE, 3 ; PRIORITY 3 

I... I BR AR Y D X 03270 . OBJ ; I CS L I BR AR Y 

PROC COBOLRTM 
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I IMCLUDE . S*S YSL I B . RCBPRC 

TASK TNEWS 

I NCLUDE . S*S YSL I B . RCBTSK 

INCLUDE .S*SYSLIB.RCBMPD 

L I BRARY . S*S YSL I B . C*SUBS 

I NCLUDE USERD I SK . USER . OBJ . PROGRAM 

END 



? COBOL INTERPRETER 

; COBOL 
? COBOL 

; USER'S OBJECT MODULE 



Without automatic symbol resolution: 
FORMAT I MAGE , REPLACE , 3 



PROC COBOLRTM 

I NCL . S4SYSL I B . RCBPRC 

TASK TNEWS 

I NCL . S*S YSL I B . RCBTSK 

I NCL .SSSYSLIB.RCBMPD 

L I BRARY . S*S YSL I B . C*SUBS 

I NCL USERD I SK . USER . OBJ . PROGRAM 

I NCL DX03270.0BJ. IC*OPN 

END 



? COBOL INTERPRETER 



5 USER'S OBJECT MODULE 
;PREL INKED PSC SUBROUTINES 



1.5 Error >3B in BET 



The Build Emulator Task command (BET) will occasionally 
encounter error >3B in the Copy Director-.- (CD) command executed 
in the TSK0I327 batch stream. This indicates that another user 
on the DXIO system was accessing one of the ICS procs that is 
replaced bv this command. In this case, it will be necessary to 
re-run BET or to manual lv perform the CD operation using the 
parameters specified in the TSK0I327 batch. This is not likely 
to occur when 3270 ICS release 2.0 is being installed on a disk 
for the first time. 



1.6 Listing director 



The listing directory used during ICS installation and 
patching must have at least five available entries. System 
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directories, such as DXCMO and . S$SYSGEN, are not recommended 
choices for the listing directory. The ''ICC'' proc will create a 
listing directory if the prompt "PATCH PROCEDURES?" is answered 
"'■■•es''. Otherwise, the user must create a listing directory using 
the "CFDIR"' command. 



1.7 Modification to ICS (XICP) and (XICC) timeouts 



The ICS printer task is installed with a variable timeout 
which is used when the printer emulator task is unable to write 
to the OUTPUT PATHNAME prompt value in the XICP command 
procedure. The default value for timeout of printer devices 
assigned during DXIO system generation is 30 seconds. ICS uses 
the svsgen'ed value together with the value of the last (ninth) 
parameter of the PARMS list in the XICP command procedure as a 
retry count. The installed value is 3 for this parameter. If 
the DXIO device timeout for a given printer is 30 seconds and the 
last (ninth) parameter has a value of 3 then the ICS printer- 
device timeout is 30 minutes which can be computed as follows: 

30 seconds X 3 (Farm 9) X 20 (constant) = 1300 sec (or 30 min) 



After the timeout expires the ICS printer emulator will 
write the current page to the local format file, if installed, 
write a message to the system log, then terminate. The printer- 
may become inoperable because of out-of -paper or off-line 
conditions. Once the printer becomes operational the page that 
was saved on the local format file can be printed by activating 
the ICS printer emulator at the device address reserved for the 
printer that was previously terminated. If ICS has not been 
installed with local format then the current page will be lost. 
To change the timeout value, text edit the XICP command procedure 
and enter the desired value in the last(ninth) parameter of the 
PARMS list. 

There is also a timeout value used by the ICS controller- 
task (XICC), measured in 50 millisecond intervals, which is the 
delay between checking for read compl et ions ( new data) from the 
communications line. The installed value is 40, 40 50 
milliseconds = 2 seconds. To change the timeout value, text edit 
the XICC command procedure and enter the desired value in the 
last (ninth) parameter of the PARMS list. 
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1.3 Download ICS 3270 Bisvnc Character Detect 



All releases of the FCCC and BCAIli communication interface 
boards require downloading of the 3270 bisvnc character detect 
routines. This step should be performed during system IPL in the 
IS command procedure as documented in the DXIO ICS REL 2.0 USERS 
GUIDE, part# 2250954-9701 and DXIO ICS REL 2.0 OBJECT 
INSTALLATION GUIDE, part # 2250942-9701*6. 



1.9 Operating System Requirements 



Systems containing 3270 ICS Re 1 2.0 must be generated on and 
run under a DXIO OS Rel 3.4.2 or later system that has been 
updated from the delta disk, not a 3.4.1 that has had 3.4.2 
patches added. The delta disk contains a new version of of the 
XGEN processor, 'GN990A', and a new version of the 911 DSR, 
'DSR911A', that are necessary for ICS 2.0 operation. DXIO 3.5 
will not require the "P342GEN"' proc to be run. 

If 37S0 is installed on the same FCCC as 3270 ICS, it must 
be Rel 4.0.1 or later. 



1. 10 GEN990 Problems 



If an input system is specified during system generation 
(XGEN), and that system was used in conjunction with release 1.1 
of 3270 ICS, it is necessary to delete and then add the 
communications devices to the configuration. This is 
accomplished by the 'change' - command within the XGEN processor, 
with "delete'" specified after the ■'change"' is performed. If the 
old communications devices are not deleted, the new system will 
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halt with crash code >20 as soon as an ICS command* such as 
•'X1CC'* is performed. This is because the device buffer size in 
the 3270 PDT will have a length of zero. It may be desirable to 
check the device buffer size in the 3270 PDT after performing 
"XGEN" and before proceeding with -BCD'' during ICS installation. 
This is accomplished bv looking at the file named 
. SSSYSGEN. <svstem name>. D*SOURCE» locating the PDT for the 3270 
coram device (named CMxx where xx is a number)* and finding the 
line that is commented -LENGTH OF DEVICE BUFFER". The correct 
va 1 ue is ■' DATA > 1 30 " . 



1.11 Internal Modems 



If the TI internal modem 201C, 990 Synchronous modem* part 
#946120-0001* is used with ICS, then it must be ECN'ed to revision 
H. 



1.12 MICA- Modify Interactive Communications Address 



This ICS command procedure is used in conjunction with the 
ICS XPA< Exec Lite ICS 3270 Poll Analyser) command procedure to 
disable or enable address detect on the communications interface 
boards. Normal operation is to not disable (enabl e ) address 
detect. This will permit the downloaded character detect to pass 
only the polls and data related only to its controller address to 
the 990 CPU and ignore messages for other poll addresses. MICA 
alone is not very useful but with XPA it can permit the operator 
to see the polls for all control unit addresses on a multidrop 
1 i ne. 
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1.13 Modifications to ICS System Los Messages 



There exist source modules that contain the text for the 
system log messages written by various ICS tasks. The user mav 
wish to change the text of the message to suit his installation 
requirements. However, the ICS tasks that reference these 
modules are dependent on the positions of the variant 
information, ususallv self evident bv inspection of the message. 
Consequently, there is little room for changing the text of the 
message. However, the messages can be changed bv observing some 
of the following rules: 

1. Variant information cannot be rearranged (in fact, 
variant information must appear in the exact character- 
positions in the message text). 

2. Messages cannot be added or deleted. 

3. Message lengths are. fixed. 

4. The order in which .messages appear in the source file 
must remain the same. Most messages are shorter than 
one line which is evident bv the blanks padded at the 
end. This may be an area for editing, as well as the 
text already displayed. 

The module are located on the emulator object media 
(DX03270) under the directory .SRC 

file names are : CTLMSG (XICC svstern log messages) 

PRTMSG (XICP system log messages) 
PSCMSG ( XPSC system log messages) 

To make changes perform the following steps! 

1. Install the ICS emulator object medium (DX03270). 

2. Text edit the appropriate file with desired changes. 

3. Execute the 990 Assembler using the text edited file as 
as the ""'Source Access Name', DXQ3270. OBJ. Cmessage file 
name> as the -"'Object Access Name", and assign the 
'Listing Access Name" to a pathname of your choice. 

4. If there are no errors in the assembly process, repeat 
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steps 1 thru 3 for any other modules which require 
changes. 

5. Reinstall the ICS tasks by following the procedures in 
the DXIO ICS Rel 2.0 Object Installation Guide, TI 
part# 2250942-970 1*B. 



Before executing step 5 be sure that no one is running ICS 
at any stat ion (execute ICS LICC command procedure to be sure that 
all stations are in an 'idle-' or •'disabled-' state. Then make the 
ICS controller task -inactive"' bv executing KT (Kill Task) on the 
task with the runid of the controller task. 



1.14 Modifications to ICS Terminal Messages 



There exist source modules that contain the text for ICS 
messages that are written to the operators terminal that can be 
changed to meet the requirements of a particular installation. 
These modules are located on the ICS object installation media 
(DX03270) under the .SRC directory. The modules of interest to 

the user are: 

MM* I 30 (XICC,XICP,XPSC,MCUA terminal messages) 

MM*I31 (LICC terminal messages) 

MM* I 32 (MICC terminal messages) 

MM*I33 (XICT terminal messages) 

MM*I34 (LICS terminal messages) 

MM*I35 (QICT terminal messages) 

MM* I 36 (MICA terminal messages) 

No messages can be added or removed from the message files, 
but the content of the text can be rearranged, lengthened, or 
shortened by observing the following restrictions. The user will 
observe by inspecting these files that there are several 
statements that begin with MSGENT or MSG and TEXT which identify 
each message. It is important that the messages remain in the 
order they originally appear. The text follows the MSGENT or 
MSG, and TEXT combinations is the message text that is written to 
the operators terminal. Within this text mar be one or more 
variants identified by ?n, where n, an integer, represents a 
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certain variant. It is in this position of the message that the 
actual value of the variant is substituted bv a subroutine 
included in the ICS task. Messages can be altered to suit the 
users requirements bv text editing these lines, reassembling the 
modules, and reinstalling the ICS tasks using the same 
instructions described under MODIFICATIONS TO ICS SYSTEM LOG 
MESSAGES. 



Example of change to message in MM*I32: 



Original Message 
Displayed as: 



•-*MICC- ERROR ?1 IN ACCESS TO PARAMETER ?2' 
-'*MICC- ERROR 90 IB IN ACCESS TO PARAMETER 5' 



New Message! 
Displayed as! 



*MICC- FARMS # ?2, SCI ERROR: ?l' 
*MICC- FARMS # 5, SCI ERROR: 901 B' 



The same variant information associated with ?1 and ?2 in the 
original message will appear in the new message but in a 
different order and with different textual information. 



1.15 Additional Log Message Hard Coded in PSTART ICS Task 



There is a message which will be written to the system log if 
PSTART ICS task receives an error in an attempt to either 
activate the PSC user task or write to the DXIO ITC channel 
because the ITC channel queue area was full. The message 
displays as follows! 

*XPSC- ERROR XXYY DURING ICS ACTIVATION 

where XX is an SVC opcode and YY is the error code. 



1.16 Modification to M*01 Command 

It may be desirable to add the QICT command to the M*01 proc 
on the .S*PROC directory to release any ICS terminal addresses 
that are in the suspended state when the SCI logoff is done. 
This can be done by text editing .S*PR0C.M*01 to include the 
f ol 1 owing 1 ines: 
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IF @**M0, EQ, OF 

QICT C0MM=CM01 
END IF 
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SECTION 2 
Outstanding Problems and Patches 



1 Outstanding Problems 



Patches are available from the Customer Support Line for the 
following problems in the 2.0.0 release of 3270 id 



.-•_• • 



1. Patch 1593, STR 11292; If the controller task 
terminates abnormally because during initialization the 
ITC read retry count was exhausted, the controller task 
attempts to make its status inactive. However, the 
pointer to its line descriptor block is not known until 
a successful ITC read from "ICSSTA'. This patch no-ops 
the attempt to reset its line status inactive. 
'ICSSTA'' will reset its line status when a put ITC to 
'ICSCTL-' fails. 

2. Patch 1595, STR 11291; If the operator does not enter a 
comm device for 'XPSC or "XICP"' and no ICS controller- 
tasks have been activated then an incomplete error- 
message (no comm device) is displayed. (i.e. '-frXICP- 

has not been activated br "XICC"'). In place of 

blanks display the last (possibly only) comm device in 
ICS configuration with message. (e.g. '#XICP- CM02 
has not been activated by "XICC"'). 

3. Patch 1596, STR 11290; If the operator enters a 
terminal address value that belongs to a crt type 
terminal but entered "PRT" to terminal type prompt in 
the "XPSC' procedure ICS fails to display an error for- 
this inconsistency and proceeds to bid up the ICS 
emulator using the terminal address value (ignoring the 
value entered for terminal type). The corresponding 
problem occurs when a terminal address value that 
belongs to a PRT type terminal is entered and 'CRT- 
type is entered for terminal type prompt. This patch 
will report an error when this inconsistency occurs 
rather than accept the terminal address value. 
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4. Patch 1597, STR 11293; In the •'XPSC' procedure if the 
operator auto selects either a •'CRT" or "PRT - " type 
device and all of the selected type devices are in use 
then ICS should display a more meaningful error msg. 

5. Patch 1593, STR 11306; On abnormal termination, ICSPSC 
puts an extra message on the ITC queue. It shouldn't 
do that. 

6. Patch 1599, STR 11308; The printer task writes error- 
messages to the svstem log from the Rifle runtime in 
addition to its own. The Rifle messages are redundant. 

7. Patch 1622, STR 11126, (Erroneously numbered Patch 1563 
on released disk); PSC attempts to write termination 
messages to the ITC queue when it has not successfully 
connected to a user. 

8. Patch 1623, STR 11125, (Erroneously numbered Patch 1564 
on released disk); PSC should abend instead of logging 
the error condition if task initialisation failed. 
ICSSTA should write the log message in this case. 

9. Patch 1624, STR 11124, (Erroneously numbered Patch 1565 
on released disk); PSC should retry the initial getdata 
5 times before giving up. 

10. Patch 1625, STR 11220; The printer task should open- 
extend relative record as well as sequential files. 

11. Patch 1626, STR 11302; The print key logic in the CRT 
task should output a form feed at the beginning of each 
screen and no form feed at the end. 

12. Patch 1627, STR 11304; PSC should send intervention 
required instead of device busy when terminating and no 
local format was specified for printer emulation. 



13. Patch 1646, STR 11417; PSC sometimes logs an error- 
message that indicates that data was written over- by 
the host when it was not. 



2 . 2 GEN990 Patches 
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* PATCH DXIO 3.4.2 GEN990 FOR DXIO ICS 3270 REL 2.0 INSTALLATION 
# 

* TITLE: "P342GEN" 
# 

* ABSTRACT: THIS BATCH STREAM CAN BE CALLED FROM PROC 

* -P342GEN- ON THE DX03270.PRC DIRECTORY 

* THESE PATCHES MUST BE APPLIED BEFORE XGEN 

* PROCESS WHEN INCLUDING DXIO ICS 3270 2.0 
# 

BATCH LS=YES 

* RL 03/31/81 GENDAT 
# 

* THESE PATCHES MUST BE APPLIED WHEN INSTALLING DXIO ICS REL 2.0 

* ON DXIO OS REL 3.4.2 AND LATER. 

MP I PF=@PROGA, MT=TA, MN=>33, ADDRO1604, 

V=>0000, D~>0001 , C=>0001 
EC 
MP I PF=@PROGA , MT=OV , MN=>06 , ADDR=>296E , 

VO 1 620 , D=> 1621, 0> 1 62 1 
EC 
MP I PF=@PROG A , MT=0 V , MN=>06 , ADDR=>29S2 , 

V=> 1616, D=> 1617, C=> 1617 
EC 

#=P1550 RVL 12/17/81 STR #11055 3.4.3 GEN99A 
# 

* WHEN A 3270 COMM DEVICE (REL 2.0) IS DEFINED, A L-ALL COMMAND 

* CAUSES ITS BUFFER SIXE TO BE CLEARED TO ZERO IN THE CONFIG FILE. 

* THIS CAUSES A CRASH >20 WHEN AN ATTEMPT IS MADE TO USE THE 3270. 

MP I PF=@PR0GA , MT=OV , MN=>05 , ADDR=>4EFE+> 1 0B2 , 

V= ( >04E0 , >5DDA ) , D= ( > 1 000 , > 1 000 ) , C=0 
EC 
MP I PF=@PR0GA , MT=0 V , MN=>05 , ADDR=>4EFE+> 1 OBA , 

V=> 1610, D=> 1615, CO 1615 
EC 
# 

* ADD NEW PATCHES HERE 

CM MSG="P342GEN PATCH STREAM ERROR COUNT = @*E*C" 
EBATCH 

Texas Instruments 2-3 2250945-9901 (#C) 



RELEASE INFORMATION, DXIO 3270 ICS, RELEASE 2.0 



3 Task Patches 

The following contains all known patches for the 
?70 ICS tasks as of February 15, 1982: 



* THIS PATCH FILE PATCHES ALL 3270 ICS REL 2.0 ICS TASKS 

* THE FOLLOWING SYNONYMS MUST BE DEFINED PRIOR TO APPLYING THESE PATCHES 

* *CPGF = <TARGET DISK>. S*COMMPF 

* *CLST = LISTING DIRECTORY 

* THE LINKMAP IS ASSUMED TO BE UNDER <LSTVOL>. LST. TSKMAP. 

* IF IT. IS NOT THERE, EDIT THIS FILE SO THAT 'PSCCOD' IS THE LOAD POINT 

* OF MODULE 'PSCCOD' AND EXECUTE AS A BATCH STREAM. 

BATCH LS=YES 

#SYN ICS, PSCCOD ! EDIT THIS LINE IF NO LINKMAP 

.SYN ICS="" 

. IF @*CPGF, EG!, "" 

. SYN *CPGF=. SSCOMMPF 
•END IF 
. EVAL PATCH=@PSCCOD 

*■ 

*=Pnnnn INT MM/DD/YY STR ttmmmmm v.r.e filename 

*- 

*'- up to ten lines of description of the patch (each line of the form 

*- shown here - star, two blanks, then words) 

*- 

*MPI PF=PROGA, MT=tt, MN=modnam, ADR=>0000, 

*• V= ( > , > , > , > > , 

*■ D= (> , > , > , > ) , C=> 

*EC 

** 

*■ 

*=P01556 RTB 12/04/81 STR #011085 DXIO 3270 ICS 2.0 PSCCOD 
*• 

* THIS PATCH PREVENTS RVI RECEIVED FROM BEING REPORTED TO THE PSC 

* USER PROGRAM AFTER A TRANSMIT CALL 

* (NO PATCH AREA USED) 

. EVAL C0MWRT=@PSCC0D+>4D5& 

MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@PSCC0D+>08E8+>007/-. , 

V=>C2A0, D=>04DA, C=O04DA 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PSCC0D+>08E8+>0078 , 

V=@COMWRT , D=> 1 000 , C=> 1 000 
EC 
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MP I PF=@*CPGF , MT=PR > MN=PSCCOD , ADR=@PSCCGD+>08E8+>00A4 , 

V=>C2A0, D=>04EC, C=>04EC 
EC 
MP I PF=S*CPGF , MT=PR , MN=PSCC0D , ADR=@PSCC0D+>08E8+>00A6 , 

V=@COMWRT, D=>0026, C=>0026 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PSCC0DO08E8+>00AA , 

V=>0001 , D=>0004, C=>0004 
EC 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PSCC0D+>08E8+>00 AC , 

V= < >0989 , >CB09 , >0026 , >C22 A ) , 

D= ( >0A29 , > 1715, >CB 1 A , >0026 ) , 

C=>D600 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PSCC0D+>08ES+>00B4 , 

V=O0004,>0A28) , 

D=O04DA,>1001 ), 

C=>14DB 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCC0D , ABR=@PSCC0D+>08E8+>00DE , 

V=>C2A0 , B=>04DA , C=>04DA 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCQD , ADR=@PSCC0D+>08E8+>00E0 , 

V=@COMWRT , D=> 1 000 , C=> 1 000 
EC 
.SYN COMWRT="" 

#=P01557 RTB 12/10/81 STR #011086 DXIO 3270 ICS 2.0 CRTCOD 

* THIS PATCH CLEARS THE ERROR CODES IN BOTH PRBS AND WAITS FOR 

* PENDING TRANSMITS ON THE FIRST WRITE. 

* CRTCOD PATCH AREAOOOOO - >0024) 

. EVAL C0MWRT=@PSCC0D+>67BC 

MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PSCCOD , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( >EA48 , >0004 , >C208 , > 1 SOD ) , 

C=>3B49 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PSCC0D+>0008 , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( >04D9 , >D229 , >0004 , > 1 304 ) , 

C=>C5F0 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PSCCOD+>00 1 , 

V= ( >0000 , >0000 ) , 

D=O1503,>2FE0>, 

C=>3AE3 
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EC 

MP I PF=S*CPGF , MT=PR , MN=CRTCOD , ADR=@PSCCOD+>00 1 4 , 

V=>0000 , D=@PSCC0D+>7556 , C=@PSCC0D+>7556 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PSCCOD+>00 1 6 , 

V= ( >0000, >0000 j >0000, >0000 ) , 

D= < > 1 0F9 , >C269 , >00 1 8 , >8S09 ) , 

C=>5A81 
EC 
MP I PF=@*CPGF , MT=PR , MN-CRTCOD , ADR=@PSCCOD+>00 1 E , 

V=>0000 » D=@COMWRT , C=@COMWRT 
EC 
MP I PF=@*CPGF , MT=PR , MN-CRTCOD , ADR=@PSCC0D+>0020 , 

V= OOOOO, >0000 ) , 

D=O16F3,>0460), 

EC 

MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PSCC0D+>0024 , 

V=>0000 , D=@PSCC0D+>03 1 4+>0080 , C=@PSCC0D+>03 1 4+>0080 
EC 
MP I PF=S*CPGF , MT=PR , MN=CRTCOD , ADR=@PSCC0D+>08 1 4+>007C , 

V=>EA48, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PSCCGD+>08 1 4+>007E , 

V=>0004 , D=@PSCCOD, C=@PSCCOD 
EC 
.SYN COMWRT="" 

«■ 

*"P01558 ERM 12/04/81 STR #011087 DXIO 3270 ICS 2.0 CTLCOD 
# 

# DO NOT SEND -DEVICE END' STATUS TO HOST FOR A DISABLED STATION 

# #SYN ICS,PSCCOD 

# .EVAL UPDDSR= @PSCCOD + >0C14 

# CTLCOD PATCH OOOOO - >0012) 

. EVAL UPDDSR=@PSCCOD+>OC 1 4 

# 

MP I PF=@*CPGF , MT-PR , MN=CTLCOD , ADDR=@UPDDSR+>0082 , 

V=>C2A0, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF, MT=PR, MN=CTLCOD, ADDR=@UPDDSR+>0084, 

V=@PSCC0D+>26A2, D=@PSCCOD, C=@PSCCOD 
EC 
MP I PF=@*CPGF , MT=PR , MN=CTLCOD , ADDR=@PSCCOD+>0000 , 

V= ( >0000 , >0000 , >0000 ) , 

D= ( >C28A , > 1 604 , >C2 AO ) , 

C=> 1 62E 
EC- 
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MP I PF=@*CPGF, MT=PR, MN=CTLCOD, ADDR=@PSCC0D+>0006, 

V=>0000 , D=@PSCC0D+>26A2, C=@PSCC0D+>26A2 
EC 
MP I PF=@*CPGF, MT==PR, MN=CTLCOD, ADDR=@PSCC0D+>0008, 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=6*CPGF, MT=PR, MN=CTLCOD, ADDR=@PSCCGD+>OOOA, 

V=>0000 , D=@UPDDSR+>0086 , C=@UPDDSR+>0086 
EC 
MP I PF=@*CPGF, MT=PR, MN=CTLCOD, ADDR=@PSCC0D+>000C, 

V= ( >0000 , >0000, >0000 ) , 

D=O44ED,>0012>>04&0) , 

C=>409F 
EC 
MP I PF=@*CPGF , MT-PR , MN=CTLCOD , ADDR=@PSCCOD+>00 1 2 , 

VOOOOO , D=@UPDDSR+>009E , C=@UPDDSR+>009E 
EC 
** 

*=P01559 LTY 12/07/81 STR #011088 DXIO 3270 ICS 2.0 PSCCOD 
# 

* THIS PATCH WILL NOT RETURN AN ERROR TO USER IF USER REQUEST TO 

* RETRIEVE ATTRIBUTES FOR FIELD 1 FROM AN UNFORMATED SCREEN, 

* UNLESS THE FIELD NUMBER REQUEST WAS >1. 

* .EVAL USRATR= ©PSCCOD + >1CE2 

* PSCCOD PATCH OOOOO - >0016) 

. EVAL USRATR=@PSCCOD+> 1 CE2 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@USRATR+>003A , 

V=>8B6A, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF, MT=PR, MN=PSCCOD, ADDR=@USRATR+>003C, 

V=>0002, D==@PATCH, C=@PATCH 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH , 

V= ( >0000, >0000, >0000, >0000 ) , 

D= ( >8B6A» >0002, >000E, >1 106 ) , 

C=>9A60 
EC 
Mp J PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=SPATCH+>0008 , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D~ ( >C294 , >028A , >000 1 , > 1 302 > , 

C=>D31D 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>00 1 , 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCQD , ADDR=@P ATCHOOO 1 2 , 

V=>0000, D=@USRATR+>0042, C=@USRATR+>0042 
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EC 

MP I PF=@*CPGF , MT=PR , MN~PSCCOD , ADDR=@PATCH+>00 1 4 , 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=e*CPOF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>00 1 6 , 

V=>0000 7 D=@USRATR+>004C , C=@USRATR+>004C 
EC 

# 

#=P015&0 LTY 12/07/S1 STR #011089 DXIO 3270 ICS 2.0 PSCCOD 
# 

* THIS PATCH WILL REJECT THE FIELD NUMBER REQUEST WHICH IS GREATER THAN 

* THE MAXIMUM FIELD CURRENT SCREEN IMAGES HAVE. 

* . EVAL USRATR- ©PATCH + >1CE2 

* PSCCOD PATCH O0018 - >0034) 

MP I PF=@$CPGF , MT=PR , MN=PSCCOD , ADDR=@USRATR+>0052 , 

V=>C054 , D=>0460 , C =00460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@USRATR+>0054 , 

V=> 1 005 , D=@PATCH+>00 1 8 , C=@PATCH+>00 1 8 
EC 
MP I PF=€*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>00 1 8 ■> 

V= ( >0000 , >0000 ) , 

D=OC054,>C160>, 

C=>0134 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@P ATCHOOO 1 C , 

V=>0000, D=@P3CC0D+>4E8E, C=@PSCC0D+>4E3E 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@P ATCHOOO 1 E , 

V=>0000, D=>0460v C=O0460 
EC 
MPI PF=@*CPGF, MT=PR, MN=PSCC0D, ADDR=@PATCH+>0020, 

V=>0000 , D=@USRATR+>0060 , C=@USRATR+>0060 
EC 
MP I PF=fi*CPGF , MT=PR , MN=PSCC0D , ADDR=@USR ATR+>005A , 

V=>C82A» D=>0460» C =00460 
EC 
MP I PF=€*CPGF , MT=PR , MN=PSCCOD , ADDR=@USRATR+>005C , 

VO0008 , D=@PATCH+>0022, C=@PATCH+>0022 
EC 
MP I PF=e*CPGF , MT=PR , MN=PSCC0D , ADDR=@PATCH+>0022 , 

V= ( >0000 j >0000 ) 7 

D~OC82A,>0008) ■> 

C=>C822 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCC0D , ADDR=@P ATCH+>0026 , 

V=O0000 > D=@PSCC0D+>4E8E, C=@PSCC0D+>4E8E 
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EC 

MP 1 PF=e*CPGF 7 MT=PR , MN=PSCCOD , ADDR=@PATCH+>0028 * 

V=>0000 , D=>8 1 60 , C=>8 1 60 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>002A , 

V=>0000 7 D=@PSCC0D+>4E8E , C=@PSCC0D+>4E8E 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>002C , 

V= ( >0000 . >0000 ) i 

D=O1602,>0460>, 

C=>1262 
EC 
MP I PF=@*CPGF, MT=PR, MN=PSCCOD, ADDR=@PATCH+>0030, 

V=>0000 , D=@USRATR+>0042 , C=@USRATR+>0042 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>0032 , 

V=>0000> D=>04607 C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@P ATCH+>0034 , 

V=>0000 , D=@USRATR+>0060 , C=@USRATR+>0060 
EC 

*=P01561 LTY 12/07/81 STR #011090 DXIO 3270 ICS 2.0 PSTART 

* 

•* THIS PATCH WILL MAKE PSTART TO SET THE RIGHT FLAG TO INDICATE THE 

* CONTROLLER ADDRESS IS 'CM__' TYPE REPRESENTATION. 

•* (NO PATCH AREA USED) 

. EVAL PSTRT=€PSCCOD 

MP I PF=@*CPGF , MT=T A , MN=PSTART , ADDR=@PSTRT+>0230 , 

V=>00 1 7 D=>0 1 00 7 C=>0 1 00 
EC 

** 

•H- 

#=P01562 LTY 12/07/81 STR #011092 DXIO 3270 ICS 2.0 PSCCOD 
■a- 

* THIS PATCH WILL RETURN AN ERROR CODE BACK TO USER WHEN USER REQUEST 

# RETRIEVE ATTRIBUTES AND THERE IS NO NEW DATA AVAILABLE. 

# PSCCOD PATCH O0036 - >004E) 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@USR ATR+>00 1 C , 

V=>0203» D=>0460» C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@USRATR+>00 1 E , 

V=@PSCC0D+>5D3E , D=@PATCH+>0036 , C=(§PATCH+>0036 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>0036 , 
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V=>0000, D=>COEO, c->coeo 
EC 
MP I PF=@*CPGF , MT=PR 7 MN=PSCCOD , ADDR=@P ATCHO0038 , 

V=>0000 , D=@PSCC0D+>4D66 ■> C=@PSCC0D+>4D66 
EEC 
MP I PF=@*CPGF , MT=PR , MN=PSCCGD, ADDR=@PATCH+>003A , 

V= ( >0000 7 '::■ 0000 j >0000 ■> >0000 ) j 

D=(>1 606 7 >0203 7 >000D 7 >C803 ) 7 

C=>DCOB 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>0042 , 

V=>0000 , D=@PSCCQD+>5D3A 7 C=@PSCC0D+>5D3A 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>0044 , 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF 7 MT=PR 7 MN=PSCCOD , ADDR=@PATCH+>0046 , 

V=>0000 , D=@USRATR+>0 1 84 , C=@USRATR+>0 1 84 
*EC THIS WORD SHOULD BE @USRATR+>170, FIX IS AT THE END OF THIS PATCH 
MP I PF=@*CPGF 7 MT=PR , MN=PSCCOD , ADDR==@PATCH+>0048 , 

V=>0000, Ei=>0203, C->0203 
EC 
MP I FF=@*CPGF 7 MT=PR , MN=PSCCOD 7 ADDR=@PATCH+>004 A , 

V=>0000 7 D=@PSCC0D+>5D3E 7 C=@PSCC0D+>5D3E 
EC 
MP I PF=@*CPGF 7 MT=PR 7 MN=PSCCOD 7 ADDR=@PATCH+>004C , 

V = > 7 D = > 4 60 , C = > 4 6 
EC 
MP I PF=@*CPGF 7 MT=PR , MN=PSCCOD , ADDR=@PATCH+>004E , 

V=>0000 7 B=@USRATR+>0020 ■> C=@USRATR+>0020 
EC 

* FIX * 

MP I PF=e*CPGF 7 MT=PR , MN=PSCCOD , ADDR=@PATCH+>0046 7 

V=@USR ATROO 1 84 , D=@USRATR+>0 1 70 , C=@USRATR+>0 1 70 
EC 

#=P01563 LTY 12/09/81 STR #011093 DXIO 3270 ICS 2.0 PSCCOD 

* THIS PATCH NO-OPS A ZERO WRITE IN PSC ENDACTION THAT CAUSES CRASH 20 

MP I PF=e*CPGF 7 MT=PR 7 MN=PSCCOD , ADDR=@PATCHO024 A+>00B4 , 

V=>C2A0 , D=> 1 002 7 C=> 1 002 
EC 
** 

# 

*=P01564 LTY 12/09/81 STR #011094 DXIO 3270 ICS 2.0 PSCCOD 
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# 

* THIS PATCH WILL REPORT AN ERROR TO THE USER IF USER SPECIFIED POSITION 

* WITHIN USRGET OR USRFILL IS 00. 

* PSCCOD F : 'ATCH ( >0050 - >0060) 

. EVAL UFG=@PSCCOD+> 1 F5A 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@UFG+>00D8 , 

V=>8194, D=>0460, C=>0460 
EC 
MP I PF=@$CPGF , MT=PR , MN=PSCCOD , ADDR=@UFG+>OODA , 

V=>1 106, D=ePATCH+>0050, D=@PATCH+>0050 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>0050 , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D=OC514,>1305,>1104,>8194), 

C=>4681 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>0058 , 

V= ( >0000, >0000 ) > 

D=<>1502,>0460>, 

C=>1162 
EC 
MP I PF=€*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>005C , 

V=>0000, D=@UFG+>00E8, C=@UFG+>00E8 
•EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=@PATCH+>005E , 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADDR=©PATCH+>0060 , 

V=>0000 , D=@UFG+>OODE 7 C=@UFG+>00DE 
EC 

*=P01565 ERM 12/08/81 STR#011095 DXIO 3270 ICS 2.0 ICSCTL 
# 

* THIS PATCH WILL CAUSE A CLOSE TO LOCAL FORMAT FILE BEFORE RELEASE 

* LUNO IF ERROR DETECTED AFTER WRITE TO LOCAL FORMAT FILE. 

* .EVAL PSCCOD= @PSCCOD+>0000 

* .EVAL SAVEBU=@P3CCGD+>09F4 

* .EVAL L0G=@PSCC0D+>03F8 CTLCOD PATCH O0014 - >002E ) 

.EVAL SAVEBU = @PSCC0D+>09F4 

.EVAL LOG = @PSCC0D+>03F8 

MP I PF=S*CPGF , MT=PR , MN=CTLCOD , ADDR=@SA VEBUO02 1 4 , 

V=>069B , D=>0460 , C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=CTLCOD , ADDR=@S A VEBUO02 1 6 , 

V=@LOG, D=@PSCC0D+>0014, C=@PSCC0D+>0014 

EC 

MP I PF=@*CPGF, MT=PR, MN=CTLC0D, ADDR=@PSCC0D+>0014, 
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V = > 7 D - > 6 9 B , C = > 6 9 B 
EC 
MP I PF=@*CPGF , MT=PR , MN=CTLC0D , ADDR=@PSCC0D+>00 1 6 , 

VOOOOO, D=@LOG, C--@LOG 
EC: 
MP I PF=@*CPGF, MT=PR, MN=CTLCOD, ADDR=@PSCC0D+>0018, 

V= ( >0000, >0000 ) , 

ri=(>9S2D,>0035) , 

EC 

MP I PF=@*CPGF , MT=PR , MN=CTLCOD , ADDR=@PSCCOD+>00 1 C , 

V=>0000 7 D=@PSCC0B+>2&94 , C=@PSCC0D+>269 4 
EC 
MP I PF=S*CPGF 7 MT=PR , MN=CTLCOD , ADDR=@PSCCOD+>00 1 E , 

\}~ ( >0000> >00Q0, >0000 ) 7 

D= < >1 306, >982D, >001F ) , 

C=>8B34 
EC 
MPI PF=€*CPGF , MT=PR, MN=CTLCOD, ADDR=@PSCC0DO0024, 

V=>0000 , D=@PSCC0D+>2694 , C=@PSCC0D+>2694 
EC 
MP I PF=e*CPGF , MT=PR , MN=CTLCOD , ADDR=@PSCCOD+>0026 , 

V= ( >0000 , >0000 ) , 

D=(>1302,>0460> , 

C=>1762 
EC 
MP I PF=@*CPGF , MT=PR , MN=CTLCOD , ADDR=@PSCC0D+>002A , 

V=O0000 , D=@SAVEBU+>0 1 EC , C=@SAVEBU+>0 1 EC 
EC 
MPT PF=@*CPGF, MT=PR, MN==CTLCOD, ADDR=@FSCC0P+>002C, 

V=>0000, D=O0460, C=>0460 
EC 
MPI PF=@*CPGF, MT=PR, MN=CTLCOD, ADDR=@PSCC0D+>002E, 

V=>0000 , D=@SAVEBU+>02 1 8 , C=eSAVEBU+>02 1 8 
EC 
** 

*=P01566 ERM 12/15/81 STR#011096 DXIO 3270 ICS 2.0 QICT 
# 

# QICT WRITES THE WRONG ERROR MESSAGE IF AN INVALID TERMINAL ADDRESS 

# IS ENTERED. QCTCOD PATCH OOOOO - >0006) 

MP I PF=@*CPGF , MT=PR , MN=QCTCOD , ADDR=@PSCCOD+>0000 , 

V= ( >0000 , >0000 , >0000 ) , 

D=OCFAD,>0012, >0460) , 

C=OCBDF 
EC 
MP I PF=@*CPGF , MT=PR , MN=QCTCOD , ADDR=@PSCC0D+>0006 , 

V=>0000 , D=@PSCC0D+>02A8+>0 1 3C , C=@PSCC0D+>02A3+>0 1 3C 
EC- 
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MP I PF=@*CPGF , MT=PR , MN=QCTCOD , ADDP^@PSCC0D+>02 A8+>0 110, 

V=>CF9D, D=>0460, C=>0460 
EC 
MP I PF=e*CPGF , MT=PR , MN=QCTCOD , ADDR=@PSCC0D+>02A8+>0 112, 

V=> 1 1 4 , D=@PSCCOD , C=@PSCCQD 
EC 

#=P01567 ERM 12/17/81 STR#0 11097 DXIO 3270 ICS 2.0 CTLCOD 

* ICSCTL SHOULD SEND -'INTERVENTION REQUIRED' FOR PRT WITH NO LOCAL 

* FORMAT OR DISABLED STATION ADDRESSES INSTEAD OF 'DEVICE BUSY''. 

MP I PF«S*CPGF , MT=PR , MN=CTLCOD , ADDR=@PSCCOD+>OC 1 4+>00 1 2 , 

V= ( >OAO0 , >0800 ) , 

D=(>0210,>0010) , 

C'=>0200 
EC 
MP I PF=@*CPGF , MT=TA , MN= I CSCTL , ADDR=@PSCC0D+>260A , 

V=>8A80, D=>8A90, C=>8A90 
EC 

*=P01568 ERM 12/18/81 STR#0 11098 DXIO 3270 ICS 2.0 PSTART 
# 

* WHEN PSTART TERMINATES ABNORMALLY IT SHOULD RELEASE (FREE) THE 

* TERMINAL ADDRESS IT HAS MARKED AS PSC-ACTIVE. 

* PSTART PATCH AREA STARTS AT PSTART+>0578 

* PSTART PATCH O0578 - >0598 ) 

MP I PF=e*CPGF , MT=T A , MN=PSTART , ADDR=@PSCCOD+>0 1 FE , 

V=>D1A1 , DO04&0, C=>04&0 
EC 
MP I PF=@*CPGF , MT=T A , MN=PSTART , ADDR=@PSCC0D+>0200 , 

V=>0005 , D=@PSCC0D+>057A , C=@PSCC0D+>057A 
EC 
MP I PF=@*CPGF , MT=T A , MN=PST ART , ADDR=@PSCC0D+>057 A , 

V=>0000, D=>C801 , C=>C801 
EC 
MP I PF=@$CPGF , MT=T A , MN=PST ART , ADDR=@PSCC0D+>057C , 

V=>0000, D=@PSCC0D+>0578 , C=@PSCC0D+>0578 
EC 
MP I PF=@*CPGF , MT=T A , MN=PST ART , ADDR=@PSCC0D+>057E , 

V= ( >0000, >0000 ) , 

D=OD1A1,>0005), 

C=>D1A4 
EC 
MP I PF=@*CPGF , MT=TA , MN=PSTART , ADDR=@PSCC0D+>0582 , 

V=>0000, D=>0460, C=>0460 
EC- 
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MP I PF=e*CPGF 7 MT=TA , MN=PST ART , ADDR=@PSCC0D+>0534 , 

V=>0000 7 D=@PSCC0D+>0202 7 C-@PSCC0D+>0202 
EC 
MP I PF=@*CPGF , MT=TA , MN=PSTART , ADDR=@PSCC0D+>03BA , 

V = > 2 F E , D = > 4 6 , C = > 4 6 

e;:c 

mp i pf=e*cpgf , mt=ta , mn=pstart , addr=@pscc0d+>03bc , 

V=@PSCC0D+>0500 , D=@PSCC0D+>0586 , C=@PSCC0D+>0586 
EC 
MP I PF=@*CPGF , MT=TA , MN=PSTART , ADDR=@PSCC0D+>0586 , 

V=>0000 , 0=0 0060 i C=>C060 
EC 
MP I PF=@*CPGF , MT=T A , MN=PST ART , ADDR=@PSCC0D+>0588 , 

V=>0000 , D==@PSCC0D+>0578 ■, C=@PSCCGD+>0578 
EC 
MP I PF=C**CPGf- , MT=TA, MN=PSTART, ADDR=@PSCC0D+>058A, 

v= ( >oooo 7 >oooo ■, >oooo ■> >oooo ) » 

D= ( >0202 7 >FF00 ■> >D842 , >0000 ) ■> 

C=>2540 
EC 
MP I PF=@*CPGF 7 MT=TA , MN=PST ART , ADDR=@PSCC0D+>0592 , 

V=O0000, D=>2FE0, C=>2FE0 
EC 
MP I PF=e*CPGF 7 MT=TA , MN=PSTART , ADDR=@PSCCGD+>0594 , 

V=>0000 7 D=@PSCC0D+>0500 7 C=@PSCC0D+>0500 
EC 
MP I PF=@*CPGF 7 MT=TA , MN=PSTART , ADDR=@PSCC0D+>0596 , 

V=>0000j D=>0460, C=>0460 
EC 
MP I PF=e*CPGF 7 MT=TA , MN=PST ART , ADDR=@PSCC0D+>0598 , 

V=>0000 7 D=@PSCC0D+>03BE 7 C=@PSCC0D+>03BE 
EC 

#=P01569 ERM 12/21/81 STR#011099 DXIO 3270 ICS 2.0 QICT 
# 

* WHEN ATTEMPTING TO RELEASE AN ICS STATION ADDRESS WHOSE 

* ASSOCIATED EMULATOR TASK IS NO LONGER IN THE SYSTEM THEN 

* RELEASE (FREE) THE STATION AND DO NOT ISSUE TWO-MINUTE DELAY. 

* QCTCOD PATCH O0008 -- >001E) 

MP I PF=@*CPGF , MT=PR , MN=QCTCOD , ADDR=@PSCC0D+>093A , 

V=>0203, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF 7 MT=PR , MN=QCTCOD , ADDR=@PSCC0D+>093C , 

V=>0078 , D=@PSCC0D+>0008 , C=SPSCC0D+>0008 
EC 
MP I PF=@*CPGF , MT=PR , MN=QCTC0D , ADDR=@PSCC0D+>0008 , 

V=>0000, D=>DOEO, C=>D0E0 
EC 
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MP I PF=@*CPGF , MT=PR , MN=QCTCOD , ADDR=@PSCC0DO000A , 

VOOOOO , D=@PSCC0D+>289D , C=@PSCC0D+>2S9D 
EC 

MP I PF=@*CPGF , MT=PR , MN=QCTC0D , ADDR=@PSCCOD+>OOOC , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( > 1 305 , >DAAD , >0030 , .": 0044 ) , 

C=OC9DC 
EC 

MP I PF=@*CPGF , MT=PR , MN=QCTC0D , ADDR=@PSCCOD+>00 1 4 , 

VOOOOO, D=>0460, C=>0460 
EC 

MP I PF=@*CPGF, MT=PR, MN=QCTCOD, ADDR=@PSCCQD+>0016, 

V=>0000, D=@PSCC0D+>09A6, C=@PSCCQD+>09A6 
EC 

MP I PF=@*CPGF , MT=PR , MN=QCTCOD , ADDR=@PSCCOD+>00 1 8 , 

V= ( > 0000 7 >0000, >0000 ) , 

D= ( >0203 , >0078 , >0460 ) , 

C=>061B 
EC 
MP I PF=fi*CPGF , MT=PR , MN=QCTCOD , ADDR=@PSCCOD+>00 1 E , 

V->0000 7 D=@PSCCGD+>093E , C=@PSCC0D+>f>93E 
EC 
** 

*=P01570 ERM 12/21/81 STR#011100 DXIO 3270 ICS 2.0 PSTART 

* PREFIX PSTART PSC LOG MESSAGE WITH '#XPSC- ' AND CHANGE 

* INITIAL STACK ?« HEAP SIZE VALUES FOR BIDDING ICSPSC FROM 

* (>2000,M000) TO <>800,>400). UNNECESSARY ACTIVATE TO ICSPSC 

* PERFORMED WHEN ICSPSC IS NOT SUSPENDED. 

MP I PF=@*CPGF , MT=TA , MN=PSTART , ADDR=@PSCC0D+>04D0 , 

V=<>2000,>1000), 

D= ( >0800 , >0400 ) , 

C=>OCOO 
EC 
MP I PF=@*CPGF , MT=TA , MN=PSTART , ADDR=@PSCC0D+>05OE , 

V= ( >2753 , >5953 , >5445 , >4D20 ) , 

D= ( >272A, >5850, >5343, >2D20 ) , 

C=>0119 
EC 

MP I PF=e*CPGF 7 MT=T A , MN=PSTART , ADDR=@PSCC0D+>02A2 , 

V=0 2FE0 7 D=> 1 1 , C=> 1 1 
EC 

*=P01571 ERM 12/22/81 STR#011101 DXIO 3270 ICS 2.0 CTLCOD 
# 

* DO NOT SEND 'INTERVENTION REG." STATUS AFTER REOPEN FROM LINE 
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* DISCONNECT WHEN A PRINTER EMULATOR IS .ACTIVE WITH NO LOCAL 

* FORMAT. 

* #SYN .i:CS\PSCCQD CTLCOD PATCH O0030 - >0046> 

* . EVAL UPDDSR=@FSCC0D+>0C14 

MP I PF=e*CPGF , MT=PR , MN=CTLC0D , ADDR=@UPDDSR+>0088 , 

V=>C293 , D=>0460 , C=>0460 
EC 
MP.T PF=®*CPGF, MT=PR, MN=CTLCOD, ADDR=@UPDDSR+>008A, 

V=>1 105 > D=@PSCC0D+>0030, C=@FSCC0D+>0030 
EC 
MP I PF=@*CPGF , MT=PR , MN=CTLCOD , ADDR=@PSCC0D+>0030 , 

V= ( >0000, >0000, >0000, >0000 ) , 

D= ( >C293 , > 1 506 , > 1 305 , >C294 ) , 

C=>0604 
EC 
MP I PF=@*CPGF , MT=PR , MN=CTLCOD , ADDR=@PSCC0D+>003S , 

V= ( >0000 , >0000 7 >0000 , >0000 ) , 

D= ( >A282 , >D2A A , >0043 , > 1 1 02 ) , 

C=>6 1 69 
EC 
MP I PF=e*CPGF , MT=PR , MN=CTLCOD , ADDR=@PSCC0D+>0040 , 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=e*CPGF , MT=PR , MN=CTLCOD , ADDR=@PSCC0D+>0042 , 

V=>0000 7 D=@UPDDSR+>008C 7 C=@UPDDSR+>008C 
EC 
MP I PF=@*CPGF 7 MT=PR , MN=CTLCOD , ADDR=@PSCCGD+>0044 , 

V=>00007 D=>0460, C=>0460 
EC 
MP I PF=e*CPGF 7 MT=PR , MN=CTLCOD , ADDR=@PSCC0D+>0046 , 

V=>0000 , D=@UPDDSR+>0096 , C=@UPDDSR+>0096 
EC 
MP I PF=e*CPGF , MT=PR , MN=CTLCOD , ADDR=@UPDDSR+>008C 7 

V= ( >54ED , >00 1 2 7 >F4ED , >00 16), 

D= ( >44ED , >00 1 2 , >E4ED , >00 16), 

C=>A004 
EC 
MP I PF=e*CPGF , MT~PR » MN=CTLCOD , ADDR=@UPDDSR+>0096 , 

V= ( >54ED , >00 1 2 , >F4ED , >00 14), 

D= ( >44ED , >00 1 2 , >E4ED , >00 14), 

C=>A006 
EC 

# 

#=P01572 LTY 12/11/81 STR #011102 DXIO 3270 ICS 2.0 PRTCOD 

■» 

* THIS PATCH CHECKS FOR NO LOCAL FORMAT OPTION AFTER PRINTER ERROR 

* OCCURRED, IF NO LOCAL FORMAT BEEN GEN-'D IN, THE ICSPRT WILL 
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* SEND INTERVENTION REQR-'D IN THE CLEANUP. 

* PRTCOD PATCH OOOOO - >0037) 

. EVAL TSTI0=@PSCC0D+>252A 

MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@TST I 0+>0 114, 

V=>C24A, D=O0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@TST 1 0+>0 116, 

V=>0229, D=@PATCH, C=@PATCH 
EC 
MP I PF=@*CP0F , MT=PR , MN=PRTCOD , A=@PATCH , 

V=>0000, D=>C260, C=OC260 
EC 
MP I PF=e*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>0002 , 

V=>0000 , D=@PSCC0D+>43E2 , C=@PSCC0D+>43E2 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>0004 , 

V= ( >0000, >0000, >0000, >0000 > , 

D= ( >D J. E9 , >000B , >0987 , >02S7 ) , 

C=>DAE2 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>OOOC , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( >0004 , > 1 60F , >C 1 E9 , >000C ) , 

COD7EE 
EC 

MP I PF=©*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>00 1 4 , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( >02S7 , >4455 , > 1 60 A , >C 1 E9 ) , 

C=>9131 
EC 
MP i PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>00 1 C , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( >000E , >0287 , >4D59 , > 1 605 ) , 

C=>59D5 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>0024 , 

V=>0000, D=>069B, C=>069B 
EC 
MP I PF=@$CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>0026 , 

V=>0000 , D=@PSCCOD+> 1 4F2 , C=@PSCCOD+> 1 4F2 
EC 

MP I PF=@*CPGF, MT=PR, MN=PRTCOD, A=@PATCH+>0028, 

V=>0000 , D=>069B , C=>069B 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>002A , 

V=>0000 , D=@PSCC0D+>2C 1 , C=@PSCC0D+>2C 1 
EC 
MP I PF=@$CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>002C , 

V=>0000, D=@PSCC0D+>273A, C=@PSCC0D+>273A 
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EC 

MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>002E , 

V= ( >0000 , >0000 7 >0000 , >0000 ) , 

D=OC24A, >0229, >005C, >0460) , 

C=>C45F 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>0036 , 

V=>0000 , D=@TST 1 0-i->0 1 1 A , C=@TST 1 0+>0 1 1 A 
EC 

MP I PF=£$CPGF , MT=PR , MN=PRTC0D , A=@TST I 0+>00D6 , 

V=>C260 , D=> 1 007 , C=> 1 007 
EC 

*=P01573 LTV 12/23/81 STR #011103 DXIO 3270 ICS 2.0 PRTCOD 
■a- 

* SEND DEVICE END WHEN ICSPRT TERMINATE, ONLY IF THE LOCAL FORMAT BFEN 

* GEN'D IN. 

* RE- ARRANGE THE CONTROL FLOW IN CLEANUP, TO MARK STATION FREE AND SEND 

* DEVICE END THEN CLOSE ALL LUNOS. 

* PRTCOD PATCH O0033 - >005D ) 

. EVAL CNUP=@PSCCOD+> 1 4F2 

MP I PF=(**CPGF , MT=PR , MN=PRTCOD , A=@CNUPO003A , 

V=>132F, D=> 1 305, C=> 1305 
EC 
MP I PF=©*CPGF , MT=PR , MN=PRTC0D , A=<*CNUP+>0046 , 

V=>CS2D, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@CNUP+>0048, 

V=>00 1 , D=@CNUP+>0 1 66 , C=@CNUP+>0 166 
EC 
MP I PF=@$CPGF , MT=PR , MN=PRTC0D , A=@CNUP+>0 1 C2 , 

V=>C260, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@CNUP+>0 1 C4 , 

V=@PSCC0D+>43A4 , D=@PATCH+>0038 , C=@PATCH+>0038 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>0038 , 

V=>0000, D=>0202, C=>0202 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>003A , 

V=>0000 , D=@PSCCGD+>43E2 , C=@PSCC0D+>43E2 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>003C , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( >C252, >D269, >000B, >0989 ) , 

C=>19B9 
EEC 
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MP i PF=@*CPGF. MT=PR, MN=PRTCOD, A=@PATCH+>0044, 

V=(>0000, >0000> >0000, >0000) , 

D= ( >0289 , >000F , > 1 602 , >069B ) , 

C=>121F 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>004C , 

V=>0000, D=@PSCCOD+> 1 722 , C=@PSCC0D+> 1 722 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCGD , A=@P ATCH+>004E , 

V=>0000 , D=>0460 , C=>0460 
EC 
MP I PF=e*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>0050 , 

VOOOOO 7 D=@CNUP+>009A , C=@CNUP+>009A 
EC 
MP I PF=£*CPGF, MT=PR, MN=PRTC0D, A=@CNUP+>0162, 

VO2FE0, D=>04&0, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@CNUP+>0 164, 

V=@PSCC0D+>46E4, D=@PATCH+>0052, C=@PATCH+>0052 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>0052 , 

V=>0000, D=>2FE0, C=>2FE0 
EC 
MP I PF=e*CPGF, MT=PR, MN=PRTCOD, A=@PATCH+>0054, 

V=>0000 , D=@PSCC0D+>46E4 , D=€PSCC0D+>46E4 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@P ATCHO0056 , 

V=>0000, D=>C260, C=>C260 
EC 
MP I PF-0*CPGF , MT=PR » MN=PRTCOD , A=@PATCH+>0058 , 

V=">0000 , D=@PSCC0D+>43A4 , C=@PSCC0D+>43A4 
EC 
MP I PF=S*CPGF , MT=PR , MN=PRTCOD , A=@P ATCHO005A , 

V->0000, D=>0460, C=>0460 

EC 

MP I PF=@*CPGF , MT=PR , MN=PRTC0D , A=@P ATCHO005C , 

V=>0000 , D=@CNUP+>0 1 C6 , C=@CNUP+>0 1 C6 
EC 
** 

*=P01574 LTY 12/23/81 STR #011104 DXIO 3270 ICS 2.0 PRTCOD 

* INSTEAD OF XGP, CALL DEVEND, MORE ERROR CHECKING THIS WAY 

* (NO PRTCOD PATCH AREA USED) 

MP I PF=S*CPGF , MT=PR , MN=PRTCOD , A=@CNUP+>0042 , 

V=>2FE0, D=>069B, C=>069B 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@CNUP+>0044 , 
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V=@PSCC0D+>4380 , D=@PSCCOD+> 1 722 , C=@PSCC0D+> 1 722 

EC 

*=P01575 LTY 12/23/81 STR #011105 DXIO 3270 ICS 2.0 PRTCOD 

* BEFORE CALL CMNDR IN PRTSAV, SET RIGHT AHDR.FLAG TO INDICATE SAVEFILE, 

* THE BLDATR MIGHT MESS IT UP. 

* PRTCOD PATCH O005E - >0071 ) 

.. EVAL PRTSV=@PSCC0D+>21 A6 

MP I PF=a*CPOF , MT=PR , MN=PRTCOD , A=@PRTSV+>0 1 78 , 

VO04E0, D=>0460, C=>0460 
EC 
MP I PF=e*CPGF , MT=PR , MN=PRTCOD , A=@PRTS V+>0 1 7 A , 

V=@PSCC0D+>4866 , D--gPATCH+>005E , C=SP ATCH+>005E 
EC 

MP I PF=@*CPGF , MT=PR , MN=PRTC0D , A=@PATCH+>005E , 

V=>0000, D=>04E0, C=>04E0 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTC0D , A=@PATCH+>0060 , 

V=>0000 , D=@PSCC0D+>4866 , C=@PSCCGD+>4866 
EC 
MP I PF=e*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>0062 , 

V=>0000, D=>C260, C=OC260 
EC 
MP I PF=e*CPGF , MT=PR , MN=PRTC0D , A=@PATCH+>0064 , 

V=>0000 , D=@PSCC0D+>3BFC , C=@PSCC0D+>3BFC 
EC 
MP I PF=e*CPGF , MT=PR , MN=PRTC0D , A=@PATCH+>0066 , 

V= ( >0000 , >0000 , >0000 ) , 

D= ( >0269, >0008, >C809 ) , 

C=>CA68 
EC 

MP I PF=e*CPGF » MT=PR , MN=PRTC0D , A=@P ATCHO006C , 

VOOOOO , D=@PSCC0D+>3BFC , C--@PSCCGD+>3BFC 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTC0D , A=@PATCH+>006E , 

V = > , D = > 046 , C = > 4 6 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@P ATCH+>0070 , 

V=>0000 , D=@PRTSV+>0 1 7C , C=@PRTSV+>0 1 7C 
EC 

*=P01576 LTY 12/23/81 STR #011106 DXIO 3270 ICS 2.0 PRTCOD 

# 

* AFTER PROCESSING SAVE FILE, PRT SEND DEVICE END + CLR INTVN REQR-'D 
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* PRTCOD PATCH O0072 - >0083) 

. EVAL ICSPRT=@PSCCGD+>273A 

MP I PF=S*CPGF , MT=PR , MN=PRTCOD , A=@ I CSPRT+>0 1 42 , 

V=>C32D, D=>0460, C=>0460 
EC 
MP I PF«e*CPOF , MT-PR , MN-PRTCOD > A=@ I CSPRT+>0 144, 

V=>00IE, D=@PATCH+>0072, C=@PATCH+>0072 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTC0D , A=@PATCH+>0072 , 

V= ( >0000 , >0000 , >0000 ) , 

D= ( >020A , >0A 1 , >C80A ) , 

COCO 10 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTC0D , A=@PATCH+>0078 , 

V=>0000, D=@PATCH+>438E, C=@PATCH+>438E 
EC 
MP I PF=@*CPGF, MT=PR, MN=PRTCOD, A=@PATCH+>007A, 

V= (>0000,>0000), 

D=OC82D,>001E), 

■»- ~" --• L- O •—' O 

EC 

MP I PF=@$CPGF , MT=PR , MN=PRTC0D , A=@PATCH+>007E , 

V=>0000 , D=@PATCH+>4390 , C=@PATCH+>4390 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTC0D , A=@PATCH+>0080 , 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTC0D , A=@P ATCHO0082 , 

VO0000 , D=@ I CSPRT+>0 1 48 , C=@ I CSPRTOO 1 43 
EC 
#* 

#=P01577 LTY 12/23/81 STR #011107 DXIO 3270 ICS 2.0 PRTCOD 
# 

* WHEN CLEANUP, IF NO LOCAL FORMAT, SEND INTERVENTION REQR'D 

* PRTCOD PATCH O0084 - >008F ) 

MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@CNUP+>003C , 

V=>C82D, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@CNUP+>003E , 

V=>OOOE, D=@PATCH+>0084, C=@PATCH+>0084 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=ePATCH+>0084 , 

V= ( >0000 , >0000 , >0000 ) , 

D= ( >0209 , >00 1 , >C809 ) , 

C=>CA10 
EC 
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MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>008A , 

V=>0000, D=@PATCH+>4390, C=@PATi~H+>4390 
EC 

MP I PF=e*CPGF , MT=PR , MN=PRTCGD , A=@PATCH+>008C , 

V = > , D = > 4 6 , C = > 4 6 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , A=@PATCH+>OOSE , 

V=>0000 , D=@CNUP+>0042 , n=@r:NUP+"><">04? 
EC 

*=P1593 ERM 01/28/82 STR#11292 DXIO 3270 ICS 2.0 ICSCTL 

* IF THE CONTROLLER TASK TERMINATES ABNORMALLY BECAUSE DURING 

* INITIALIZATION THE ITC READ RETRY COUNT WAS EXHAUSTED, THE 

* mNTROLLER TASK ATTEMPTS TO RESET (FREE), MAKE ITS STATUS INACTIVE. 

* HOWEVER, THE POINTER TO ITS LINE DESCRIPTOR BLOCK IS NOT KNOWN 

* UNTIL A SUCCESSFUL ITC READ FROM ' I CSSTA -' . THIS PATCH NO-OPS 

* THE ATTEMPT TO RESET ITS LINE STATUS INACTIVE. ' I CSSTA-' WILL 

* RESET ITS LINE STATUS WHEN A PUT ITC TO -ICSCTL- FAILS. 
# 

* (NO PATCH AREA USED) 

MP I PF=@*CPGF , MT=PR , MN=CTLCOD , ADDR=@PSCC0D+>0682 , 

V= ( >C26A , >0002 , >DA5D , >0043 ) , 

D= ( > 1 003 , > 1 000 , > 1 000 , > 1 000 ) , 

C=>0003 
EC 

# 

*=P1595 ERM 01/28/82 STR#11291 DXIO 3270 ICS 2.0 ICSSTA 
# 

* IF THE OPERATOR DOES NOT ENTER A COMM DEVICE FOR 'XPSC-' OR -XICP-' 

* AND NO ICS CONTROLLER TASKS HAVE BEEN ACTIVATED THEN AN 

* INCOMPLETE ERROR MESSAGE (NO COMM DEVICE) IS DISPLAYED. 

* (I.E. '*XICP- HAS NOT BEEN ACTIVATED BY "XICC"-'). IN PLACE 

* OF BLANKS DISPLAY THE LAST (POSSIBLY ONLY) COMM DEVICE IN ICS 

* CONFIGURATION WITH MESSAGE. 

* (E.G. "*XICP- CM02 HAS NOT BEEN ACTIVATED BY "XICC"-). 
# 

* STACOD PATCH OOOOO - >0020 ) 

MP I PF=e*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>06 1 C , 

V=>0201 , D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>06 1 E , 

V=@PSCC0D+>39F3, D=@PSCCOD, C=@PSCC0D 
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EC 

MP I PF=@*CPGF , MT=PR , MN=STACGD , ADDR=@PSCCOD , 

V= ( >0000, >0000. >0000 ) , 

D= ( >0201 , >0001 , >0202 ) , 

C=>0002 
EC 
MP I PF=e*CPGF > MT=PR , MN=ST ACOD > ADDR=@PSCC0D+>0006 , 

V=>0000 7 D=@PSCCGD+>39F3 ■> C=@PSCC0D+>39F3 
EC 
MP I PF=@*CPGF » MT=PR , MN=STACOD , ADDR=@PSCC0D+>0008 , 

V= ( >0000 , >0000 7 >0000 7 >0000 ) 7 

D= ( >C26A , >0002 , >A24 1 , >DCA9 ) 7 

C=>BC80 
EC 
MP I PF=e»CPGF 7 MT=PR , MN=ST ACOD , ADDR=@PSCCOD+>00 1 , 

V= ( >0000 7 >0000 7 >0000 7 >0000 ) 7 

D= ( J 0005, >0581 7 >0281 , >0004 ) , 

C=>0701 
EC 
MP I PF=@*CPGF, MT=PR, MN=STACOD, ADDR=@PSCCQD+>0018, 

V=<>0000,>0000)7 

D=O12F7,>0201)7 

OM0F6 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCCOD+>00 1 C , 

V=>0000, D=@PSCC0D+>39F3» C=@PSCC0D+>39F3 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCCOD+>00 1 E , 

V=>0000, D=>04&0, C=>0460 
EC 
MP I PF=@*CPGF 7 MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0020 , 

V=>0000 , D=@PSCCQD+>0620 
EC 
# 

* 

*=P1596 ERM 01/28/82 STR#11290 DXIO 3270 ICS 2.0 ICSSTA 

* IF THE OPERATOR ENTERS A TERMINAL ADDRESS VALUE THAT BELONGS 

* TO A CRT TYPE TERMINAL BUT ENTERED 'PRT' TO TERMINAL TYPE PROMPT 

* IN THE 'XPSC PROCEDURE ICS FAILS TO DISPLAY AN ERROR FOR THIS 

* INCONSISTENCY AND PROCEEDS TO BID UP THE ICS EMULATOR USING THE 

* TERMINAL ADDRESS VALUE ( IGNORING THE VALUE ENTERED FOR TERMINAL 

* TYPE. THE CORRESPONDING PROBLEM OCCURS WHEN A TERMINAL ADDRESS 

* VALUE THAT BELONGS TO A PRT TYPE TERMINAL IS ENTERED BY "CRT- 

* TYPE IS ENTERED FOR TERMINAL TYPE PROMPT. THIS PATCH WILL REPORT 

* AN ERROR WHEN THIS INCONSISTENCY OCCURS RATHER THAN ACCEPT THE 

* TERMINAL ADDRESS VALUE. 
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# STACOD PATCH O0022 - >OOSA) 

MP I PF=e*CPGF , MT=PR , MN=ST ACOD , ADDR==@PSCCOD+> 1 3BA , 

V=>C2A0, DO0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+> 1 SBC , 

V=@PSCC0DO39CA , D=@PSCC0D+>0022 , C=@PSCC0D+>0022 
EC 
MP I PF=e*CPGF , MT=PR , MN=STAC0D , ADDR=@PSCCOD+> 1 3BE , 

V=> 1 328 , D=> 1 000 , C=> i 000 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0022 , 

V=>0000» D=>C2A0, C=>C2A0 
EC 
MP I PF=@*CPGF , MT=PR , MN=STAC0D , ABDR=@PSCCGD+>0024 , 

V=>0000, D=@PSCC0D+>39CA 7 C=@PSCC0D+>39CA 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>0026 , 

V= ( >0000 , >0000 ) , 

D=<>161B,>C2A0), 

C=OD4BB 
EC 
MP I PF=e*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>002A , 

V=>0000 , D=@PSCC0D+>3BD8 , C=@PSCCGD+>3BD8 
EC 
MP I PF=@$CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>002C , 

V= ( >0000 7 >0000 ) , 

D=O1618,>C2A0), 

C=>D4B8 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0030 , 

VOOOOO , D=@PSCC0D+>3BD6 , C=@PSCC0D+>3BD6 
EC 
MP I PF=S*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0032 , 

V= ( > 0000 7 >0000 ) 7 

D==O1317,>C260), 

C=>D177 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>0036 , 

V=>0000 , D=@PSCCQD+>3 A82 , C=@PSCC0D+>3 A82 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0038 , 

V= ( >0000 7 >0000 7 >0000 7 >0000 ) 7 

D= ( >0A69, >A254, >D269, >0045 ) , 

C=>7A11 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0040 , 

V= ( >0000 7 >0000 7 >0000 ) 7 

D= ( >0989 , > 1 30F , >0209 ) , 
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C-> 1 88F 
EC 
MP I PF=@*CPGF , MT-PR , MN=ST ACOD , ADDR=@PSCC0D+>0046 , 

V=>0000 , D=@PSCC0D+>0070 , C=@P3CC0D+>0070 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0048 , 

V= ( >0000 , >0000 , >0000 ) , 

D= ( >020& , >000E, >020A ) , 

C=>0002 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>004E , 

V=>0000, D=@PSCCOD, C=@PSCCOD 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0050 , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( >022A, >20F7, >DEB9, >0606 ) , 

C=>FA62 
EC 
MP I PF=S»CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0058 , 

V=(>0000,>0000), 

D=<I:-16FD,>04£.0), 

C=>129D 
EC 
MP I PF=e*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>005C , 

V=>0000, D=@PSCC0D+>13D2, C=@PSCC0D+>13D2 
EC 
MP I PF=e*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>005E , 

VOOOOO, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0060 , 

VOOOOO , D=@PSCCOD+> 1 SCO , C=@PSCCOD+> 1 3C0 
EC 
MP I PF=@*CPGF, MT=PR, MN=STACOD, ADDR=@PSCC0D+>0062, 

VOOOOO, DO0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>0064 , 

VOOOOO , D=@PSCCOD+> 1410, C=@PSCCOD+> 1 4 1 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCCOD+> 1 3CE , 

VO0609, DO 0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCCOD+> 1 3D0 , 

V=> 1 3 1 F , D-@PSCC0D+>0066 , C=@PSCC0D+>0066 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0066 , 

V= ( 50000 •> >0000 , >0000 ) , 

D= < >0609, >1 3FC, >0209 ) , 

C=>17FC 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>006C , 
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V=>0000 , D=@PSCCOD+> 007E , C=@PSCCOD+>00 7E 
EC 
MP I PF=fi*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>006E , 

V=>0000 , D=> 1 OEC , C=> 1 OEC 
EC 
MP I PF=@*CPGF 7 MT=PR , MN=STACOD , ADDR=@PSCC0D+>0070 , 

y= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( >5052 , >494E , >5445 , >5220 ) , 

C=>1F79 
EC 
MP I PF=@*CPGF 7 MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0078 , 

V= ( >0000, >0000, >0000. >0000 ) , 

D= ( >2020 , >2020 , >2020 , >5649 ) , 

C=>7669 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0080 , 

V=O0000, >0000, >0000, >0000) , 

D= ( >4445 , >4F20 , >5445 , >524D ) , 

C=>0D6D 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>0088 , 

V= ( >0000 , >0000 ) , 

D=(>494E,>414C>, 

C=>0802 
EC 
# 

*=P .1.597 ERM 01/28/82 STR# 11293 DXIO 3270 ICS 2.0 ICSSTA 

* IN THE -XPSC-' PROCEDURE IF THE OPERATOR AUTO SELECTS EITHER A 

* -CRT'' OR -PRT-' TYPE DEVICE AND ALL OF THE SELECTED TYPE DEVICES 

* ARE IN USE THEN ICS SHOULD DISPLAY A MORE MEANINGFUL ERROR MSG. 
# 

* ST ACOD PATCH O008C - >00B6 ) 

MP I PF=®«CPGF , MT=PR , MN=STACOD , ADDR=@PSCCOD+> 1 1 CC , 

V=>C320, D=>0460i C=>0460 
EC 
MP I PF=e*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCCOD+> 1 1 CE , 

V=@PSCC0D+>39CA , D=@PSCC0D+>008C , C=@P3CC0D+>008C 
EC 
Mp i PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCCGD+> 1 1 DO , 

V=> 1 308 , D=> 1 000 , C=> 1 000 
EC 
MP I PF=®*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>008C , 

V=>0000 , D=>C320 , C=>C320 
EC 
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MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCCOD+>003E , 

V=>0000, D=@PSCC0D+>39CA, C=@PSCC0D+>39CA 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>0090 , 

V=(>0000,>0000), 

D=O1603,>C320), 

C=>D523 
EC 
MP I PF=@*CPGF, MT=PR, MN=STACOD, ADDR=@PSCC0D+>0094, 

V=>0000, D=@PSCC0D+>3BD8, C=@PSCC0D+>3BD3 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>0096 , 

V=<>0000,>0000>, 

D=O1303,>0206), 

C=>1105 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>009A , 

V=>0000, D=@PSCC0D+>1 1E2, C=@PSCC0D+>1 1E2 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>009C , 

V=<>0000,>0000>, 

D=(>1002,>0206), 

C=>1204 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCCOD+>00 AO , 

V=>0000, D=@PSCC0D+>1 1E9, C=@PSCC0D+>1 1E9 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>00A2 , 

V= ( >0000 , >0000 , >0000 ) , 

D= ( >020A , >0007 , >020C ) , 

C=>0001 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCC0D+>00A8 , 

V=>0000, D=@PSCCOD, C=@PSCCOD 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCCOD+>00 A A , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= < >022C , >22DC , >DF36 , >060A > , 

C=>F9CC 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCCDD+>00B2 , 

V=<>0000,>0000>, 

D=O16FD,>04&0), 

C=>129D 
EC 
MP I PF=@*CPGF , MT=PR , MN=STACOD , ADDR=@PSCC0D+>00B6 , 

V=>0000, D=@PSCC0D+>1 1D2, C=@PSCC0D+>1 1D2 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCCOD+> 1 1 E2 , 

V= ( >CF AD , >00 1 , >CF95 , >CF AD ) , 
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D= O5052 , >494E, >5445, >5256 ) , 

C=>1F0F 
EC 
MP I PF=@*CPGF , MT=PR , MN=ST ACOD , ADDR=@PSCCOD+> 1 1 EA , 

V= ( >00 1 2 , >CFAD , >0020 ) , 

D= ( >4944 , >454F , >2020 ) , 

EC 

#=P0159S LTY 02/02/82 STR# 011306 DXIO ICS 3270 PSCCOD 
# 

* THIS PATCH WILL AVOID THE ICSPSC PUT AN EXTRA MESSAGE INTO ITC 

* WHEN ABNORMAL TERMINATED (KILL TASK) AND THE USER TASK IS NOT 

* ACTIVE (POLL USER TASK STATUS). 

* LEAD TERMINATION LOGIC TO ESCAPE ICSPSC INSTEAD OF RETURN TO THE 

* CALLER. 

* IF ACTIVATE TASK FAILED, CLEAR THE PUTDATA Q. 
■»■ 

* PSCCOD PATCH OOOEO - >011D) 

. EVAL ABND=@PSCC0D+>024A 
. EVAL TERM=@PSCCOD+> 1 AEC 
# 

* IN TERM3270, CHANGE R$RETM AND ESCAPE ICSPSC TO ENDTSK SVC 

* TO AVOID RIFLE RUN TIME LOG MESSAGES 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@TERM+>0 1 CO , 

V=>046B , D=> 1017, C=> 1017 
EC 
MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@TERM+>0 1 FO , 

V=>069B, D=>0201 , C=>0201 
EC 
MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@TERM+>0 1 F2 , 

V=@PSCC0D+>3AF2, D=>0400, C=>0400 
EC 
Mp i PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@TERM+>0 1 F4 , 

V=@PSCC0D+>2292, D=>2FC1 , C=>2FC1 
EC 
MP I PF=@*CPGF 7 MT=PR , MN=PSCCOD , ADR=@TERM+>0 1 EC , 

V=>C04 1 , D=> 1 00 1 , C=> 1 00 1 
EC 
# 

* POLL USER TASK STATUS 
* 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@ABND+>0054 , 

V=>3B6C, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@ ABNDO0056 , 

V=>0006 , D=@PATCH+>OOEO , C=@PATCH+>00E0 
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EC 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>OOEO , 

V=>0000, DOD320, C=>D820 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>00E2 , 

V=>0000 , D=@PSCC0D+>550C+>0003 , C:=@PSCCOD+>550C+>0003 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>00E4 , 

V=>0000 , D=@PSCC0D+>54AE+>0005 , C=@PSCC0D+>54AE+>0005 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@P ATCHO00E6 , 

V=>0000, D=>2FE0, C=>2FE0 
EC 
MP I PF=@*CPGF, MT=PR, MN=PSCCOD, ADR=@PATCH+>00E8, 

V=>0000, D=@PSCC0D+>54AE, C=@PSCC0D+>54AE 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>OOE A , 

V=>0000, B=OD2A0, C=>D2A0 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>00EC , 

V=>0000, D=@PSCC0D+>54AE+>0001 , C=@PSCC0D+>54AE+>00Q1 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCGD , ADR=@PATCH+>00EE , 

V= ( >0000 , >0000 , >0000 , >0000 ) , D= < >098A , >028A , >00FF , > 1 305 ) , 

C=018FA 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>00F6 , 

V= ( >0000 , >0000 , >0000 , >0000 ) , D= ( >8B6C , >0006 , >00 1 4 , >0460 ) , 

C=>8F1E 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>OOFE , 

V=>0000, D=@ABND+>005A, C=@ABND+>005A 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0 1 00 , 

V=>0000 , D=>0460 , C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0 1 02 , 

V=>0000 , D=@ABND+>009A , C=@ABND+>009A 
EC 
# 

* IF ACTIVATE TASK FAILED, CLEANUP THE Q 
. EVAL ECH0=@PSCC0D+>09F0 
MP I PF=@*CPGF , MT=PR , MN=PSCC0D , ADR=@ECH0+>0038 , 

V=>CFAD , D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@ECH0+>003A , 

V=>OOOE , D=@PATCH+>0 1 04 , C=@PATCH+>0 1 04 
EC 
MP I PF=@*CPGF, MT=PR, MN=PSCCOD, ADR^ePATCH+1^104, 

V=>0000 , D=>D820 , C=>D820 
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EC 

MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0 1 06 , 

V=>0000 , D=@PSCC0D+>550C+>0003 , C=@PSCC0D+>550C+>0003 
EC 
MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0 1 08 , 

V=>0000 , D=@PSCCOD+>4EB6+>0003 , C=@PSCC0D+>04EB6+>0003 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCC0D , ADR=@PATCH+>0 1 OA , 

V= ( >0000 , >0000 , >0000 )>D=( >020 A , >3000 , >F80 A ) , C=>7 AOO 
EC 
MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0 110, 

V=>0000, D=@PSCCGD+>4EB6+>0002 , C=@PSCCGD+>4EB6+>0002 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCC0D , ADR=@PATCH+>0 112, 

V=>0000, D=>2FE0, C=>2FE0 
EC 
MP I PF=@*CPGF, MT=PR, MN=PSCC0D, ADR=@PATCH+>01 14, 

V=>0000 , D=ePSCC0D+>4EB6 , C=@PSCC0D+>4EB6 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0 116, 

V= ( >0000 , >0000 , >0000 ) , B= ( >CF AD , >000E , >0460 ) , C=>CBC3 
EC 
MP I PF=@*CPGF, MT=PR, MN=PSCCOD, ADR=@PATCH+>01 1C, 

V=>0000 , D=@ECHG+>003C , C=@ECH0+>003C 
EC 
** 

* 

*=P01599 LTY 02/02/82 STR# 011308 DXIO ICS 3270 PRTCOD 

* THIS PATCH WILL AVOID THE RIFLE RUN TIME PUT OUT END ACTION 

* MESSAGES BY ISSUING A SVC ENDTSK INSTEAD OF RIFLE ESCAPE. 
* 

* PRTCOD PATCH O00A6 - >OOAB) 

MP I PF=@*CPGF , MT=PR , MN=PRTC0D , ADR=@CNUP+>0 1 D4 , 

V=>046B , D=>0460 , C=>0460 
EC 
MP I PF=e»CPGF , MT=PR , MN=PRTCOD , ADR=@CNUP+>0 1 D6 , 

V=>00B0, D=@PATCH+>00A6, D=@PATCH+>00A6 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTC0D , ADR=@PATCH+>00A6 , 

V= ( > 0000 , >0000, >0000 ) , D= ( >0209, >0400 , >2FC9 ) , C=>29C0 
EC 
** 

«• 

#=P01622 LTY 01/07/82 STR #011126 DXIO 3270 ICS 2.0 PSCCOD 

* WHEN ABEND, CHECK PUTDATA MID, IF THEN THE ICSPSC HASN'T GET THE 
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* USER TASK'S RUN ID YET, NO NEED TO PUTDATA, JUST SKIP IT AND GO TO 

* LOGMSG. 
# 

* PSCCOD PATCH O0062 - >0073) 

. EVAL INTA=@PSCC0D+>0B9E 

MP I PF=@$CFGF, MT=PR, MN-PSCCOD. ADR=@ABND+>0068, 

V=>2FE0, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@ABND+>006A , 

V=@PSCC0D+>550C, D=@PATCH+>0062, C=@PATCH+>0062 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0062 , 

V=>0000, D=OD2A0, C=>D2A0 
EC 
MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0064 , 

V=>0000 , D=@PSCC0D+>550F , C=@PSCCQD+>550F 
EC 
MP I PF=fi*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0066 , 

V= < >0000 , >0000 ) , D= < > 1 304 , >2FE0 ) , C=>3CE4 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>006A , 

V=>0000, D=@PSCC0D+>550C, C=@PSCC0D+>550C 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>006C , 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>006E , 

V=>0000, D=@ABND+>006C, C=@ABND+>006C 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=SPATCH+>0070 , 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0072 , 

V=>0000, D=@ABND+>009A, C=@ABND+>009A 
EC 
#* 

*=P01623 LTY 01/07/82 STR #011125 DXIO 3270 ICS 2.0 PSCCOD 

* IF GETDATA ERROR IN IN ITT ASK, GO ABEND INSTEAD OF LOGMSG 

* NO PATCH AREA BEEN USED 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@ I NTA+>008E , 

V=@PSCCQB+>0FF4, D=@PSCC0D+>024A, C=@PSCC0D+>024A 
EC 
** 
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*=P01624 LTV 01/07/82 STR #011124 DXIO 3270 ICS 2.0 PSCCOD 
# 

* IN INI TT ASK, RETRY GETDATA IF NO DATA APPEAR YET. RETRY AND TIMEOUT 

* 5 TIMES, EACH TIMEOUT 100 MS. 

* PSCCOD PATCH O0074 - >008F) 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@ I NTA+I-006E , 

V=>2FE0, D=>0460, C=>0460 
EC 
MP I PF=fi*CPGF , MT=PR , MN=PSCCOD , ADR=@ I NT A+>0070 , 

V=@PSCCGD+>4EB6 , D=@PATCH+>0074 , C=@PATCH+>0074 
EC 
MP I PF=6*CPGF , MT=PR , MN=PSCCOD , ADR=@P ATCHO0074 , 

V= ( >0000 , >0000 , >0000 ) , D= ( >0204 , >0005 , >2FE0 ) , C=>2DE 1 
EC 
MP I PF=S*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>007 A , 

VOOOOO , D=@PSCC0D+>4EB6 , C=@PSCC0D+>4EB6 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>007C , 

V=>0000, D=>D2A0, C=>D2A0 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>007E , 

V=>0000 , D=@PSCC0D+>4EB7 , C=@PSCC0D+>4EB7 
EC 
MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0080 , 

V= ( >0000 , >0000 , >0000 , >0000 ) , D= ( > 1 305 , >0604 , > 1 303 , >2FE0 ) , 

C=>29E2 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0088 , 

V=>0000 , D=@PSCC0D+>497C , C=@PSCC0D+>497C 
EC 
MPI PF=@*CPGF, MT=PR, MN=PSCCOD, ADR-@PATCH+>008A, 

V=>0000 , D=> 1 0F6 , C=> 1 0F6 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>008C , 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>008E , 

V=>0000, D=@INTA+>0072, C=@INTA+>0072 
EC 
«•* 

# 

*=P01/-.25 LTY 01/21/82 STR#011220 DXIO 3270 ICS 2.0 PRTCOD 

* THIS PATCH WILL FIX PROBLEM THAT THE RELATIVE RECORD FILE DIDN'T 

* OPEN EXTEND, THAT'S BECAUSE AFTER OPEN EXTENDED, THE RECORD # 

* DIDN'T TRANSFER TO WRITE SVC BLOCK, SO IT WAS ALWAYS STARTED 
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* WITH RECORD AND WIPED OUT THE ORIGINAL FILE. 

* PRTCOD PATCH (>0090->00A5) 

. EVAL 0PN=@PSCC0D+>1C0C 

MP I PF=@*CPGF , MT=PR , MN=PRTCOD , ADR=@OPN+>0 1 4C , 

V=>CAAD, D=>0460, C=>0460 
EC 
MP I PF=@$CPGF , MT=PR , MN=PRTCOD , ADR=@OPN+>0 1 4E , 

V=>001 A, D=@PATCH+>0090, C=@PATCH+>0090 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , ADR=@PATCH+>0090 , 

V= ( >0000 , >0000 , >0000 , >0000 > , 

D= < >CAAD , >00 1 A , >0 1 73 , >C320 ) , C=>03EF 
EC 
MP I PF=@*CPGF, MT=PR, MN=PRTCOD, ADR=@PATCH+>009S, 

V=>0000 , D=@PSCCOD+>46C0+>000C , C=@PSCC0D+>46C0+">000C 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , ADR=@PATCH+>009A , 

V=>0000 , D=SPSCC0D+>46E4+>000C , C=@PSCC0D+>46E4+>000C 
EC 
MP I PF=@*CPGF, MT=PR, MN=PRTCOD, ADR=@PATCH+>009C, 

V=>0000, D=>C320, C=>C820 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , ADR=@P ATCH+>009E , 

V=>0000 , D=@PSCC0D+>46C0+>000E , C=@PSCC0D+>46C0+>000E 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , ADR=@PATCH+>OOAO , 

V=>0000,D=@PSCC0DO46E4+>000E,C==@PSCC0D+>46E4+>000E 

EC 

MP I PF=@*CPGF, MT=PR, MN=PRTCOD, ADR=@PATCH+>00A2, 

V=>0000 » D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PRTCOD , ADR=@P ATCH+>00A4 , 

V=>0000 , D=@QPN+>0 1 52 , C=@OPN+>0 1 52 
EC 
** 

*=P01&26 LTY 01/25/82 STR#0.U302 DXIO ICS 3270 2.0 CRTCOD 

* THE PRINT KEY ROUTINE WILL WRITE A CR+FF TO THE OUTPUT FILE/ 

* DEVICE BEFORE PRINT THE SCREEN IMAGE. 

* IN CLEANUP, THE CLOSE OUTPUT FILE/DEVICE WILL DO A CLOSE 

* INSTEAD OF CLOSE EOF. 
# 

* CRTCOD PATCH <>0026~>0047) 

. EVAL PKEY==@PSCC0D+>1C4A 

MP I PF=@*CPGF, MT=PR, MN=CRTCOD, ADR=@PKEY+>0052, 
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V= < >CS2D, >00 1 8 ) , D= < >0203, >0002 ) , C->0201 
EC 
MP I PF=@*CPGF > MT=PR , MN=CRTCOD , ADR=@PKE YO0056 , 

V=@PSCC0D+>752E+>000A , D=>CS03 , C=>C803 
EC 
MP I PF=6*CPGF , MT=PR , MN=CRTCOD , ADR=@PKE YO0058 , 

VOCBEO , D=@PSCC0D+>752E+>000A , C=@PSCC0D+>752Eh-O OOOA 
EC 
MP I PF=6*CPGF , MT=PR , MN=CRTCOD , ADR=@PKE YO005A , 

V=@PSCC0D+>7236, D=>0460, C=>0460 
EC 
MP I PF=€«CPGF , MT=PR , MN=CRTCOD , ADR=@PK'E Y+>005C , 

V=>002A, D=@PATCH+>0026, C=@PATCH+>0026 
EC 
MP I PF=e*CPGF , MT=PR , MN=CRTCQD , ADR=6PATCH+>0026 , 

V= ( >0000 7 >0000 , >0000 , >0000 ) , D= < >C0ED , >00 1 6 , >0204 , >0D0C ) , 

C=>CFF3 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PATCH+>002E , 

V= ( >0000 , >0000 , >0000 , >0000 ) , D= ( >DCC4 , >06C4 , >D4C4 , >2FE0 ) , 

C=>2124 
EC 
MP I PF=fi*CPGF , MT=PR , MN=CRTCOD , ADR=@PATCH+>0036 , 

V=>0000 , D=@PSCC0D+>752E , D=@PSCC0D+>752E 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PATCH+>0038 , 

V= ( >0000 , >0000 ) , D= < >C82D , >00 18), C=>C835 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PATCH+>003C , 

V=>0000 , D=@PSCC0D+>752E+>000A , C=@PSCC0B+>752E+>000A 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PATCH+>003E , 

V=>0000, D=>CBEO, C=OCBE0 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PATCH+>0040 , 

V=>0000, D=@PSCC0D+>7286 , C=@PSCC0D+>7236 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=ePATCH+>0042 , 

V=>0000 , D=>002A , C=>002A 
EC 
MP I PF=@*CPGF, MT=PR, MN=CRTCOD, ADR=@PATCH+>0044, 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=e*CPGF , MT=PR , MN=CRTCOD , ADR=@PATCH+>0046 , 

V=>0000 , D=@PKE Y+>005E , C=@PKE Y+>005E 
EC 
# 

* DON'T DO WRITE INI T, CHANGE OPCODE FROM CLOSE EOF TO CLOSE 
# 
MP I PF=@*CPGF, MT=PR, MN=CRTCOD, ADR=@PKEY+>0012, 
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V=>0080, D=>0000, C=>0000 
EC 
MP I PF=@*CPGF , MT=PR , MN=CRTCOD , ADR=@PSCCOD+> 1 ADC+>OOOE , 

V=>0002, D=>0001 , C=>0001 
EC 

*=P01627 LTY 01/26/82 STR#011304 DXIO ICS 3270 REL 2.0 PSCCOD 
# 

* FOR ICSPSC PRINTER STATION, IF GEN'D IN AS NO LOCAL FORMAT, THE 

* ICSPSC SHOULD SEND INTERVENTION REQR'D INSTEAD OF DEVICE BUSY. 

* THE STATE SHOULD SET TO WAIT IF THE CLS STATE WASN'T -'ENDING'-. 

* IN ABNEND, FOR PRINTER STATION, SHOULD SEND DEVICE END/ INT REQ-'D 

* AFTER MARK THE STATION FREE. 
# 

* PSCCOD PATCH <>0090->OODF) 

. EVAL CRTIN=@PSCC0D+>05E& 
. EVAL UCLS=@PSCC0D+>1E6A 
# 

* SET MASK INCLUDE INTVNTN REQR'D 
# 

MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@CRT I N+>0034 , 

V=>0 AOO , D=>OA 1 , C=>OA 1 
EC 
# 

* SET MASK FOR DEVEND SVC TO INCLUDE INTVNTN REQ-'D 
# 

MP I PF=e*CPGF , MT=T A , MN= I CSPSC , ADR=@PSCC0D+>4D7& , 

V=>OAOO , D=>0 A 1 , C=>OA 1 
EC 
# 

* CHANGE DEVICE BUSY TO INTERVENTION REQR'D 
# 

MP I PF=@*CPGF , MT=PR , MN-PSCCOD , ADR=@UCLS+>00 1 8 , 

V=>0800 , D=>00 1 , C=>00 1 
EC 
# 
MP i PF=fi*CPOF , MT=PR , MN=PSCCOD , ADR=@UCLS+>009E , 

V=>C82D, D=>04&0, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@UCLS+>OOAO , 

V=>0018, D=@PATCH+>0090, C=@PATCH+>0090 
EC 
MP I PF=Q*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0090 , 

V= ( >0000 , >0000 , >0000 , >0000 > , D- ( >875C , > 1 60B , >C82D , >00 18), 

C=>5962 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>0098 , 
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V=>0000 , D=@PSCC0D+>4D&8+>00 1 , 

C=@PSCCQD+>4D63+>00 1 
EC 
MP I PF=@$CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>009A , 

V= ( >0000 , >0000 , >0000 7 >0000 ) 7 D= ( >875C 7 > 1 302 7 >C72D 7 >000E ) 3 

C=>537D 
EC 
MP I PF=@SCPGF , MT=PR , MN=PSCC0D , ADR=@PATCH+>00A2 , 

V=>0000, D=>2FE0, C=>2FE0 
EC 
MP I PF=fi*CPGF , MT=PR , MN=PSCC0D , ADR=@PATCH+>00A4 , 

V=>0000 , D=@PSCC0D+>4D&3 , C=@PSCC0D+>4B68 
EC 
MP I PF=6*CP0F 7 MT=PR , MN=PSCC0D , ADR=@P ATCHO00A6 7 

V=>0000, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>00A8 , 

V=>0000, D=@UCLS+>00B8, C=@UCLS+>0OB8 
EC 
MP I PF=@*CPGF, MT=PR, MN=PSCCGD, ADR=@PATCH+>OOAA, 

V= ( >0000 , >0000 ) , D= < >C82D , >00 1 A ) , C=0 C837 
EC 
MP I PF=6*CPGF , MT=PR , MN=PSCC0D , ADR=@PATCH+>OOAE , 

VOOOOO 7 D=@PSCC0D+>4D68+>00 1 7 

C=@PSCC0D+>4D68+>00 1 
EC 
MP I PF=S*CPGF 7 MT=PR , MN=PSCCOD , ADR=@PATCH+>OOBO , 

V=>0000 , D=> 1 0F4 , C=> 1 0F4 
EC 
MP I PF=e*CPGF 7 MT=PR , MN=PSCCOD 7 ADR=@UCLS+>00B4 , 

V=>2FE0, D=>0460» O>0460 
EC 
MP I PF=@$CPGF , MT=PR , MN=PSCC0D , ADR=@UCLS+>00B6 , 

V=(?PSCC0D+>4D68 , D=@PATCH+>009A, C=@PATCH+>009A 
EC 

•M- 

* ABNEND SEND STATUS FOR PRINTER BEFORE MARK STATION FREE 
# 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=6 ABND+>00 1 , 

V= ( >0A00 7 >0800 ) 7 B= ( >00 1 7 >0200 ) 7 C=>02 1 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=© ABNDO0050 , 

V=>2FE0 7 D=> 1 00 1 7 C=> 1 00 1 
EC 
MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@ABND+>0026 , 

V=>C2 AC , D=> 1 007 , C=> 1 007 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=€ ABND+>0044 , 

V= ( >C82D , >00 1 > , D= < >C2AC > >0002 ) , C=>C2 AE 
EC 
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MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@ABND+>0048 , 

V=@PSCC0D+>4D68+>000E , D=> 1 OFO , C=> 1 OFO 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@ ABND+>0030 , 

V=>028A, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF, MT=PR, MN=PSCCOD, ADR=@ABND+>0032, 

V=>000F, D=@PATCH+>00B2, C=@PATCH+>00B2 
EC 
MP I PF=@*CPOF , MT=PR , MN=PSCCOD , ADR=@PATCH+>00B2 , 

V= ( >0000, >0000, >0000, >0000) , D= ( >028A, >000F, >1602, >0460 ) , 

CO10E7 
EC 
MP I PF=@*CPGF, MT=PR, MN=PSCCOD, ADR=@PATCH+>OOBA, 

V=>0000, D=@ABND+>004A, C=@ABND+>004A 
EC 
MP I PF=S*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>OOBC , 

V= ( >0000 , >0000 ) , D= < >C82D , >00 10), C=>C83D 
EC 
MP I PF=@*CPGF, MT=PR, MN=PSCCOD, ADR=@PATCH+>00C0, 

V=>0000 , D=@PSCC0D+>4D68+>00 1 , C=@PSCC0D+>4D68+>00 1 
EC 
MP I PF=@*CPGF , MT=PR , MN-PSCCOD , ADR=@PATCH+>00C2 , 

V=>0000 , D=>0460 , C=>04&0 
EC 
MP I PF=®*CPGF , MT-PR , MN=PSCCOD , ADR=@P ATCH+>00C4 , 

V=>0000, D=@ABND+>0054, C=@ABND+>0054 
EC 

* SEND DEVICE END 

MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@ABND+>OOFS , 

V=>04FE , D=>0460 , C=>0460 
EC 
MP I PF=@*CPGF , MT=PR , MN-PSCCOD , ADR=@ABND+>OOFA , 

V=>069B , D=@P ATCHO00C6 , C=@PATCH+>00C6 
EC 
MP I PF=e*CPGF, MT=PR, MN=PSCCOD, ADR=@PATCH+>00C6, 

V= ( >0000 , >0000 , >0000 , >0000 ) , D= ( >C2AC , >0004 , >D6 AD , >002 1 ) , 

C=>1424 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>OOCE , 

V= ( >0000 , >0000 , >0000 , >0000 ) , D= ( >D26 A , >000 1 , >0A89 , > 1 702 ) , 

C=O-CFE0 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@P ATCHO00D6 , 

V=>0000, D=>2FE0, C=>2FE0 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=€P ATCH+>00D8 , 

V=>0000, D=@PSCC0D+>4D68, C=@PSCC0D+>4D68 
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EC 

MP I PF=e*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>OOD A , 

V= ( >0000 , >0000 ),D=( >04FE . 069B ) , C=>0265 
EC 
MP I PF=@*CPGF , MT=PR , MN=PSCCOD , ADR=@PATCH+>OODE , 

V=>0000 , D=@PSCCOn+> 1 AEC , C=@PSCCOD+> 1 AEC 
EC 

*=P01646 LTY 02/15/82 STR#011417 DXIO ICS 3270 REL 2.0 PSCCOD 
# 

* THERE IS AN EXTRA FLAG 'GOTO AT A' BESIDE 'DATAFLG" TO INDICATE 

* THAT ICSPSC HAS DATA BUT NEVER GETS RESET AFTER SET AND THUS CAUSE 

* THE WARNING MESSAGE BEEN PUT OUT EVEN THOUGH THERE IS NO DATA LOST. 

* THIS PATCH CHANGE "GQTDATA"" TO -DATAFLG" TO USE ONLY ONE FLAG TO 

* SERVE THE PURPOSE. 
# 

* (NO PATCH AREA BEEN USED) 

MP I PF=e*CPGF » MT=PR , MN=PSCCOD , ADR=@PSCCOD+> 1 742+>0046 , 

V=@PSCC0D+>4EC2 , D=@PSCC0D+>4D66 , C=@PSCC0D+>4D66 
EC 
MP I FF=@*CPGF , MT=PR , MN=PSCC0D , ADR=@PSCCOD+> 1 742+>0064 , 

V=@PSCC0D+>4EC2 , D=@PSCC0D+>4D66 , C=@PSCC0D+>4D66 
EC 
* 

# 

* NEXT QICT PATCH AREA L0CATI0N=@PSCC0D + >0020 

* NEXT PSTART PATCH AREA LOCAT I GN=@PSCCOD + >059A 

* NEXT PSC PATCH AREA LOCATION=€PSCCOD + >011E * 

* NEXT CRT PATCH AREA LOCATION=@CRTCOD + >002& 

* NEXT CTL PATCH AREA L0CATI0N=@P8CC0D + >0048 

* NEXT PRT PATCH AREA LOCATION=@PSCCOD + >OOAC 
» NEXT STA PATCH AREA LOCATION=@PSCCOD + >00B8 

. S YN ABND= " " , PSCCOD= " " , PATCH= " " , USRATR= " " , PSTRT= " " , UFG= " " , 

UPDDSR= " " 
CM MSG="@*E*C ERRORS IN PATCH STREAM fi*CLST. BATLST. TSKPT327" 



2.4 DSR patches 



The foil owing patches are found in the DSR patch file, 
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•-DX03270. DXCMO. D3270. P. DPT3270' : 
BATCH LS=YES 

# 

* TITLE: DPT3270 

* ABSTRACT: THIS PATCH FILE PATCHES THE COMMUNICATIONS DSR 

* ASSOCIATED WITH THE 3270 EMULATOR. COMMON 

* MODULES IN THE PARTIAL LINK "DSR3270", ARE 

* PATCHED BY "DPTCMON". PROTOCOL DEPENDENT 

* MODULES ARE PATCHED BY "DPT3270". 

* #*# SPECIAL INSTRUCTIONS ### 
•«■ 

* THIS PATCH FILE MUST BE APPLIED USING THE CURRENT 

* "PCS" PROC. "PCS" IS AVAILABLE ON EACH 

* COMMUNICATION EMULATOR OBJECT INSTALLATION DISK. 

* 

* ALL EMULATOR DSRS MUST BE GENERATED AND THE SYSTEM 

* "ALGS" PERFORMED BEFORE PATCHING BEGINS. 
# 

* FOLLOW THE INSTRUCTIONS IN THE OBJECT INSTALLATION 

* MANUAL (S) FOR THE EMULATOR (S) BEING INSTALLED. 

.SYN IMAGE= @**DSC*.S*IMAGES ! TARGET DISK . S* I MAGES 

##*** SYSTEM LINK DEFINED SYNONYMS 

#SYN DSR,DSR3270 
#SYN COM , COMMCOM 
. SYN DSRCMON= " SDSR3270 " 

**##* PARTIAL LINK DEFINED SYNONYMS 

#SYN CLCBSCI 

ttSYN CCDBSCI 

#SYN CMSBSCI 

#SYN CDSRPAT 

. SYN C= " " 

***** CALCULATED USING DSR3270'S OFFSET 
####*#**#***####*####****###*******#****#*#*#*####*###***##* 

. I F QLCBSC I , NE , " NONE " 

.EVAL LCBSC I = " @DSR3270+©LCBSC I " 

. EVAL MSBSC I = " @DSR3270+@MSBSC I " 

.EVAL D**PAT="@DSR3270+@DSRPAT+2" 

.ENDIF 

. I F @CDBSC I , NE , " NONE " 

. EVAL CDBSC I = " @DSR3270+@CDBSC I " 
.ENDIF 
#**#*###**#***#**#*#******##*#*##*#*#*****##*####****#***#*# 
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* NOTE: THE FOLLOWING PATCHES SHIP WITH ICS R 2.0 
*=P01581 -JLH 09/30/81 STRMllll CSUPSY 

■H- 

* INCREASE I/O THRESHOLD AS REQUIRED 

#**#####*##*##***»»#*###**#*#*####*#*«•#**♦********###*###### 
MP I PF=@IMAGE, MT=OV, MN=@DSR, ADDR=@DSR3270+>0444, 

V=O0600, D=>0F00, C=>0F00 

EC 

*=P01532 JLH 12/04/81 STR#11112 LCBSCI 
# 

* THE 3270 LINE CONTROL MAY REPORT INCORRECTLY REPORT WRITE 

* REQUESTS AS COMPLETE WITH RVI ERROR WHEN NO ERROR WAS 
*■ ACTUALLY PRESENT. 

MPI PF=IMAGE,MT=0V,MN=@DSR,ADDR="@LCBSCI+0A4C", ! SET RVI RECEIVED 

V= ( 04E 1 , OC ) , D= ( 072 1 , 06 ) , C=0727 
EC 
MPI PF=IMAGE, MT=OV, MN=@DSR, ADDR="@LCBSCI+0A56" , 

V= ( 06 AO , " ©LCBSC I +0 1 58 " , 04E 1 , 06 ) , 

D= ( 06 AO , " @D**PAT " , 1 000 , 1 000 ) 
EC 
MPI PF=IMAGE,MT=OV,MN=@DSR,ADDR="@D**PAT", ! CALL XMTRVI ONLY 

V=<0DEAD,0DEAD,0DEAD,0DEAD,0DEAD,0DEAD>, ! IF RVI RECEIVED 

D= ( 0C26 1 , 06 , 1 302 , 0460 , " ©LCBSC I +0 158", 045B ) 
EC 

. EVAL D$*PAT="@D**PAT+OC" 
MPI PF= I MAGE, MT=OV, MN=@DSR, ADDR=" ©LCBSCI +0598" , 

V= ( 04E 1 , OC ) , D= < 06A0 , " @D**PAT " ) 
EC 
MPI PF=IMAGE,MT=OV,MN=@DSR,ADDR="eD**PAT", ! CLEAR SAVERR AND 

V=(ODEAD,ODEAD,ODEAD,ODEAD,ODEAD), IRVIFLG ON FST BLK 

D= ( 04E 1 , OC , 04E 1 , 06 , 045B ) 
EC 
. EVAL D*$PAT= " @D**PAT+OA " 

*=P01583 JLH 12/09/81 STR-11113 LCBSCI 
■» 

* THE 3270 LINE CONTROL DOES NOT CORRECTLY INITIALIZE ALL 

* STATIONS TO DISABLED AT OPEN TIME. THIS MAY CAUSE IT TO 

* POSITIVELY REPOND TO SELECTS WHEN THE STATION IS IN FACT 

* NOT VALID. 

MPI PF=IMAGE,MT=0V,MN=@DSR,ADDR="@Li::BSCI+04D2", UNIT ALL STATIONS 

V=08000 , D=080 , C=080 ! AS D I SABLED . 

EC 
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*=P01584 JLH 12/10/81 STR=11114 LCBSCI 
# 

* THE 3270 LINE CONTROL MAY DESTROY THE MAXIMUM STATIONS 

* VALUE IN THE LINE CONTROL TABLE. 

MP I PF= I MAGE , MT=0 V , MN=@DSR , ADDR= " ©LCBSC I +0656 " , ! CORRECT REG I STER 
V=04E8,D=04E4,C=04E4 ! USAGE FROM 8 TO 4 

EC 

*=P01585 JACK'H 12/10/81 STR=11115 LCBSCI 
# 

* THE 3270 LINE CONTROL REPORTS RVI TO TASK ON RECEIPT OF 

* READ MODIFIED EVEN THOUGH HE COULD HANDLE IT HIMSELF. 

MP I PF=IMAGE,MT=0V,MN=@DSR,ADDR="@LCBSCI+09C0", SSKIP RVI REPORTING 

V=> 1 002 , D=> 1004, C=> 1 004 
EC 

*=P01586 JLH 12/11/81 STR=11116 LCBSCI 
# 

* THE 3270 LINE CONTROL WILL REPORT TRANSMITS COMPLETE WITH 

* RVI EVEN THOUGH THE COMMAND RECEIVED IS A READ MODIFIED 

* WHICH WILL IMMEDIATELY CAUSE THE TRANSMISSION OF THE DATA. 

MP I PF=IMAGE, MT=OV, MN=@DSR, ADDR=" ©LCBSCI +OAEC" , ! 

V= ( 06A0 , " SLCBSC I +03E8 " , OC 1 C7 ) , 

D= < 0460 , " @D**PAT " , 0C082 ) 
EC 
MP I PF= I MAGE , MT=OV , MN=@DSR , ADDR= " @D**PAT " , ! REPORT RC VS 

V= ( ODEAD , ODEAD , ODE AD , ODEAD , ODEAD ) , ! 

D= < 06A0 , " ©LCBSC I +03E8 " , 0C26 1 , 06 , 1 302 ) i 
EC 
MP I PF=IMAGE,MT=QV,MN=@DSR,ADDR="@D**PAT+OA", ! REPORT XMITS 

V=< ODEAD, ODEAD, ODEAD, ODEAD), ! ONLY IF 

D=(06A0, "©LCBSCI +01 53 ",0460, "@LCBSCI+OAFO" ) IRVIFLG SET 
EC 
MP I PF= I MAGE , MT=0 V , MN=@DSR , ADDR- " ©LCBSC I +OBOC " , ! CHANGE TO 

V=OC 1 C7 , D=0C082 , C=0C082 i R2 USAGE 

EC 

. E VAL D**PAT= " @D**PAT+0 1 2 " 
MPI PF=IMAGE,MT=OV,MN=@DSR,ADDR="gLCBSCI+OADE", .'CHANGE TO 

V=0707,D=0702,C=0702 ! R2 USAGE 

EC 
MP I PF= I MAGE , MT=0 V , MN=@DSR , ADDR= "©LCBSCI +0 AC6 " , ! CHANGE TO 

V=0587 , D=0582, C=0582 ! R2 USAGE 

EC 
MP I PF= I MAGE , MT=OV , MN=@DSR , ADDR= " ©LCBSC I +0A8E " , ! CHANGE TO 
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V=04C7,D=04C2,C=04C2 ! R2 USAGE 

EC 
MP I PF= I MAGE , MT=0 V , MN=@DSR , ADDR= " @LCBSC I +0A4 A " , ! 

V=0 1 305 , D=0 1 309 , C=0 1 309 I HOLD X M I TS 

EC 
*-* 

*=P01537 JLH 12/11/81 STR=11H7 LCBSCI 
* 

* THE 3270 LINE CONTROL DELAYS ONLY ONE SECOND BEFORE 

* TRANSMITTING AN ENQ OR NAK TO KILL TIME WHEN THE TASK 

* HAS NOT PROVIDED TRANSMIT DATA. 

MP I PF= I MAGE , MT=OV , MN=@DSR , ADDR= " ©LCBSC I +0 1 7E " , i CHANGE 

V=0500 7 D=0800 , C=0800 
EC 
*•* 

*=P01588 JLH 12/ 11 /SI STR=11118 CDBSCI 
•a 

* THE 3270 CHARACTER DETECT TERMINATES A RECEIVE BLOCK WITH 

* THE RECEPTION OF A PAD OFF) CHARACTER. CERTAIN 327X CMOS 

* MAY INCLUDE A PAD AS A DATA CHARACTER. 

. I F SCDBSC I , NE , " NONE " 

MP I PF= I MAGE , MT=0 V , MN=@DSR , ADDR= " SCDBSC I +0 1 DA " , i SK I P 

V=028A , D=0 1 002 , C=0 1 002 ! PAD TEST 

EC 
MP I PF=IMAGE, MT=OV, MN=@DSR, ADDR=" ©CDBSCI +027 A" , ! SKIP 

V=023A , D=0 1 002 , C=0 1 002 ! PAD TEST 

EC 
.END IF 

* THIS ENDS THE PATCHES WHICH ARE PART OF DXIO ICS R2.0.0 

* INSERT NEW PATCHES HERE 

* 
** 

. IF @*E*C.NE, "0" 

. EVAL *E$PCS?="@*E*PCS+1 " 
.END IF 

. S YN DCMON= " @DSR " , DSRCMON= " ©DSR3270 " 
. S YN CDBSC I = •"• , LCBSC I = " " , MSBSC I = " " 
. S YN DSRPAT= " " , D**P AT= " " 

* ASSIGN *PROT TO PROTOCOL NAME FOR COMMON, "DPTCMON" PATCHES 
.SYN *PR0T="3270" 

CM MSG = "@*E*C ERRORS IN PATCH STREAM @*CLST. DPT3270" 
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EBATCH 



2.5 PSC Runtime Patches 



The following contains all known patches to the PSC 
subroutines as of February 15, 1982: 

* THIS BATCH STREAM PATCHES THE DXIO ICS 3270 REL 2.0 PSC USER TASK 
# 

* NOTE: PATCHES SHOULD BE APPLIED TO EACH PSC USER TASK AFTER 

* THE LINK EDIT PROCESS. THE LINKMAP OF THE USER TASK 

* NEEDS TO BE SAVED FOR INPUT TO 'PTPSC 

* THE FOLLOWING SYNONYMS MUST BE DEFINED PRIOR TO EXECUTING THIS BATCH 

* STREAM 

* SYNONYM VALUE 

* ^CW EMULATOR OBJECT PATHNAME 

* *CPGF PSC USER PROGRAM FILE 

* *CTN PSC USER TASK NAME 

* «CMAP PSC USER LINKMAP PATHNAME 

* *CLST LISTING ACCESS NAME 

BATCH LS=YES 
#SYN Tl, ICSOPN 
#SYN Tl, PSCPAT 
#SYN Tl, ICSOPN 
.SYN Tl = "" 

* IF THE VALUE OF THE SYNONYM " IC*OPN" * "NONE" THEN THE PSC RUNTIME 

* MODULES HAVE BEEN EXPLICITLY INCLUDED IN THE PSC USER TASK 

* LINKSTREAM. OTHERWISE, IF THE VALUE OF THE SYNONYM "PSCPAT" = "NONE" 

* THEN THE USER DID NOT EXPLICITLY INCLUDE PSC RUNTIME MODULES BUT LET 

* THE LINK EDITOR FIND THE PSC RUNTIME MODULES IN THE EMULATOR OBJECT 

* LIBRARY. NOTE WHEN USER TASK IS WRITTEN IN FORTRAN OR PASCAL LANGUAGES 

* THAT THE MODULE "IFSOPN" IS PLACED BEFORE "IC*OPN" IF ONLY THE 

* EMULATOR OBJECT LIBRARY IS SPECIFIED IN THE PSC USER TASK LINKSTREAM. 

* REFERENCES TO SPECFIC MODULES CAN BE MADE DIRECTLY WHEN THE PSC 

* MODULE HAS BEEN EXPLICITLY INCLUDED IN THE LINKSTREAM. OTHERWISE, 

* REFERENCES MUST BE CALCULATED AS A FIXED OFFSET BASED ON THE PAR- 

* T I ALLY LINKED MODULE "IC*OPN". 

.IF " @ I C*OPN " , EQ , " NONE " 

.IF" ©PSCPAT " , EQ , " NONE " 
# 

* THIS CAN HAPPEN IF THE USER HAS EXPLICITLY INCLUDED EACH PSC RUNTIME 

* MODULE BUT FAILED TO INCLUDE (PSCPAT) MODULE FOR PATCH AREA 
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•«• 

CM MSG=" FATAL ERROR IN @*CLST" 

EBATCH TEXT="NO PSC PATCH MODULE IN LINK CONTROL FILE",C0DE=1 
.END IF 
. ELSE 

. SYN PSCPAT ="@IC*OPN" 
. END IF 
.IF "eiCSOPN" >EQ, "NONE" ! PARTIALLY LINKED PSC RUNTIME INCLUDED 

. EVAL ICS0PN=@PSCPAT+>04E0 

. EVAL IPCSUB=@PSCPAT+>06F6 

. EVAL THC0NS=@PSCPAT+>0A6E 

. EVAL ICSCLS=@PSCPAT+>02C6 
.ENDIF 

*=P01578 LTY 12/07/81 STR #011108 DXIO 3270 ICS 2.0 PSC. ICSOPN 
# 

* THIS PATCH WILL PASS THE SELECTED CTLRID AND DEVID BACK TO USER OPEN 

* FARMS AFTER AN AUTO SELECT OPTION. 

* PSCPAT PATCH OOOOO - >0014) 

MP I PF=@*CPGF , MT=T A , MN=@*CTN , ADR=@ I CSOPN+>0 1 3E , 

V=>DB2C» D=>04&0, C=>0460 
EC 
MP I PF=@*CPGF , MT=T A , MN=@*CTN , ADR=@ I CSOPN+>0 1 40 , 

VO006F, D=@PSCPAT, C=@PSCPAT 
EC 
MP I PF=S*CPGF , MT=T A , MN=@*CTN , ADR=@PSCPAT , 

V= ( >0000, >0000, >0000 ) , 

D=( >DB2C, >006F, >005E ) , 

C=>DB1D 
EC 
MP I PF=e*CPGF , MT=T A , MN=@*CTN , ADR=@PSCPAT+>0006 , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( >C06A, >0000, >CC6C, >0072 ) , 

C=>0C74 
EC 
MP I PF=@*CPGF , MT=TA , MN=@*CTN , ADDR=@PSCPAT+>OOOE , 

V= ( >0000 , >0000 , >0000 ) » 

D= ( ::• C46C , >0074 , >0460 ) , 

C=OC078 
EC 
MP I PF=@*CPGF , MT=TA , MN=@*CTN , ADR=@PSCP ATOOO 1 4 , 

VOOOOO , D=@ I CSOPN+X") 1 44 , C=@ I CSOPN+>0 1 44 
EC 

*=P01579 ERM 12/21/81 STR#011109 DXIO 3270 ICS 2.0 IPCSUB 
* 

* PSC RUNTIME SHOULD RETRY WHEN AN ITC READ SVC RETURNS AN 
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* ERROR INDICATING EMPTY QUEUE INSTEAD OF INDEFINITELY 

* LOOPING ON ITC READ. 

* PSCPAT PATCH O0016 - >0034) 

MP I PF=@*CPGF, MT=TA, MN=@*CTN, ADDR=@IPCSUB+>0084, 

V=>CBO 1 , D=>0460 , C=>0460 
EC 
MP I PF=S*CPGF , MT=T A , MN=@*CTN , ADDR=@ I PCSUB+>0086 , 

V=>0028 , D=@PSCPAT+>00 1 6 , C=@PSCP AT+>00 1 6 
EC 
MP I PF=@*CPGF , MT=TA , MN=«*CTN , ADDR=@PSCP ATOOO 1 6 , 

V=>0000, D=>CB20, C=>CB20 
•*EC SHOULD BE DB20, FIX IS IN PATCH #1649, INCREASE RETRY COUNT FOR 

* TIMEOUT 

MP I PF=@*CPGF, MT=TA, MN=@*CTN, ADDR=@PSCPAT+>0018, 

V=>0000, D=@THCQNS+>0002, C=@THC0NS+>0002 
#EC FIX IS IN PATCH #1649 TO INCREASE RETRY COUNT FOR TIMEOUT 
MP I PF=@*CPGF , MT=T A , MN=@*CTN , ADDR=@PSCPAT+>00 1 A , 

V=>0000 , D=>00 1 E , C=>00 1 E 
*EC FIX IS IN PATCH #1649 TO INCREASE RETRY COUNT FOR TIMEOUT 
MP I PF=@*CPGF , MT=T A , MN=@*CTN , ADDR=@PSCPAT+>00 1 C , 

V= ( >0000, >0000, >0000 ) , 

D= ( >CB01 , >0028, >0460 ) , 

C=>CF49 
EC 
MP I PF=g*CPGF , MT=T A , MN=@*CTN , ADDR=@PSCP ATO0022 , 

V=>0000 , D=@ I PCSUB+>0088 , C=@ I PCSUB+>0088 
EC 
MP I PF=@*CPGF , MT=TA , MN=@*CTN , ADDR=@ I PCSUB+>009E , 

V=>2FEC, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF, MT=TA, MN=@*CTN, ADDR=@IPCSUB+>00A0, 

V=>0068 , D=@PSCPAT+>0024 , C=@PSCPAT+>0024 
EC 
MP I PF=@*CPGF , MT=T A , MN=@*CTN , ADDR=@PSCPAT+>0024 , 

V= ( >0000 , >0000 , >0000 , >0000 ) , 

D= ( >062C , >00 1 E , > 1 304 , >2FEC ) , 

C=>3ADA 
EC 
MP I PF=fi*CPGF , MT=T A , MN=@*CTN , ADDR=@PSCPAT+>002C , 

V=(>0000,>0000>, 

D=O0068,>0460), 

C=>0408 
EC 
MP I PF=@*CPGF , MT=T A , MN=@*CTN , ADDR=@PSCPAT+>0030 , 

V=>0000 , D=@ I PCSUB+>00 A2 , C=@ I PCSUBOOO A2 
EC 

MP I PF=@*CPGF , MT=TA , MN=@*CTN , ADDR=@PSCP AT+>0032 , 
V=>0000, D=>0460, C=>0460 

EC 
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MP I PF=@*CPGF 7 MT=T A , MN=@*CTN , ADDR=@PSCPAT+>0034 , 

V=>0000 , D=@ I PCSUB+>00 A4 , C=@ I PCSUB+>00A4 
EC 
** 

•ft 

#=P015S0 LTY 12/22/81 STR #011110 DXIO 3270 ICS 2.0 PSC. ICSCLS 

* CLEAR BOTH SEND MSG Q AND RECV MSG Q WHEN EXIT FROM ICSCLS. 
■» 

* PSCPAT PATCH O0036 - >0050) 

MP I PF=@*CPGF, MT=TA, MN=@*CTN, ADDR=@ICSCLS+>006A, 

V=>C06A, D=>0460, C=>0460 
EC 
MP I PF=@*CPGF , MT=TA , MN=@*CTN , ADDR=@ I CSCLS+>006C , 

V=>0004 , D=@PSCPAT+>0036i C=@PSCPAT+>0036 
EC 
MP I PF=®*CPGF , MT=T A , MN=@*CTN , ADDR=@PSCPAT+>0036 , 

V= ( I:- 0000 , >0000 , >0000 ) , D= < >D06C , >004F , >06A0 ) , C=>D683 
EC 
MPI PF=fi*CPGF, MT=TA, MN=@*CTN, ADDR=@PSCPAT+>003C, 

V=>0000 , D=e I PCSUB+>002E , C=@ I PCSUB+>002E 
EC 
MP I PF=e*CPGF , MT=T A , MN=@*CTN , ADDR=@PSCPAT+>003E , 

V=>0000 > D=@ I CSCLS+>0063 , C=@ I CSCLSO0068 
EC 
MPI PF=e*CPGF, MT=TA, MN=@*CTN, ADDR=@PSCPAT+>0040, 

V= ( >0000 7 >0000 , >0000 ) 7 D= ( >D06C , >005E , >06A0 ) 7 COD692 
EC 
MPI PF=@*CPGF, MT=TA, MN=@*CTN, ADDR=@PSCPAT+>0046, 

V=>0000 , D=@ I PCSUB+>002E , C=@ I PCSUB+>002E 
EC 
MPI PF=@*CPGF, MT=TA, MN=@*CTN, ADDR=@PSCPAT+>0048, 

V=>0000 , D=@ I CSCLS+>0068 , C=@ I CSCLSO0068 
EC 
MP I PF=@*CPGF , MT=TA , MN=@*CTN , ADDR=@PSCPAT+>004 A , 

V= ( >0000, >0000, >0000 ) 7 D= ( >C06A, >0004, >0460 ) , C=>C40E 
EC 
MPI PF=@*CPGF, MT=TA, MN=@*CTN, ADDR*€PSCPAT+>0050, 

V=>0000 , D=@ I CSCLS+>006E , C=@ I CSCLS+>006E 
EC 

# 

*=P01M9 LTY 02/15/82 STR # DXIO 3270 ICS 2.0 PSC. ICSCLS 

* CLEAR BOTH SEND MSG Q AND RECV MSG Q WHEN EXIT FROM ICSCLS. 

* (NO PATCH AREA BEEN USED) 

MPI PF=@*CPGF, MT=TA, MN=@*CTN, ADDR=@PSCPAT+>001&, 
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V=>CB20, D=>DB20, C=>DB20 
EC 
MP I PF=@*CPGF , MT=T A , MN=@*CTN , ADDR=@PSCPAT+>00 1 8 , 

V=@THC0NS+>0002 , D=@THCONS+>00 1 , C=@THCQNS+>00 1 
EC 
MPI PF=@*CPGF, MT=TA, MN=£*CTN, ADDR=@PSCPAT+>001 A, 

V=>00 1 E , D=>00 1 F , C=>00 1 F 
EC 
# 

it 

* NEXT AVAILABLE PATCH LQCATI0N=@PSCPAT+>0052 

. SYN ICSCLS=" " , ICSOPN=" " , IPCSUB-" " , PSCPAT=" " , THC0NS=" " , IC*QPN=" " 

CM MSG="@*E*C ERRORS IN PATCH STREAM @*CLST" 

EBATCH 
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SECTION 3 
Interactive Programmed Station Control Utility 



A utility program is available from TI-MIX, the TI 
user's group, called Interactive Programmed Station 
Control (IPSO, which is very useful in developing PSC 
applications. It is a menu-driven application which 
allows you to call any of the PSC subroutines with 
parameters that are specified interactively, and to 
visually inspect the results. It is highly recommended 
for both experienced and inexperienced PSC programmers. 
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